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Preface 



This publication describes the internal 
logic and organization of the Terminal 
Monitor Program (TMP) and the TSO service 
routines. It is written for persons who 
maintain or modify TSO and is not necessary 
for persons who use TSO to process programs 
or who write programs that are processed by 
TSO. 



External information is contained in IBM 
System/ 3 60 Operating System; Time Sharing 
Option : 

Guide, GC28-6698, which describes what 
TSO is and what it can do. 

User's Guide , GC28-6763, which describes 
typical operations that a terminal user 
may perform. 

Command Language Reference ,, GC28-6732, 
which describes the commands, 
subcommands, and operands of the TSO 
command language. 

Guide to Writing a Terminal Monitor 
Program or a Command Processor , 
GC28-6764, which tells how to write 
foreground programs that will interact 
with or replace those supplied by TSO. 

This book is organized in six parts, 
preceded by an introduction and followed by 
a glossary and an index- Each part is 
really a separate program logic manual, 
with its own introduction, method of 
operation, program organization, directory, 
data areas, and diagnostic aids sections. 

The "Introduction" describes the purpose 
and use of the Terminal Monitor Program 
(TMP) and the TSO service routines and 
describes their relationship to the system. 
You should understand the "Introduction" 
before reading any of the other parts. 



"Part 1: Terminal Monitor Program" 
describes the internal logic and 
organization of the Terminal Monitor 
Program and its relationship to other 
programs including the TSO Control Program, 
the LOGON/LOGOFF Scheduler, the TSO command 
processors, and the TSO service routines. 

"Part 2: Terminal I/O Service Routines" 
describes the internal logic and 
organization of STACK, PUTLINE, GETLINE, 
and PUTGET and their relationship to other 
programs including the TSO Control Program, 
the Terminal Monitor Program and the TSO 
command processors. 

"Part 3: Command Scan and Parse Service 
Routines" describes the internal logic and 
organization of Command Scan and Parse and 
their relationship to other programs 
including the Terminal Monitor Program and 
the TSO command processors. 

"Part 4: Dynamic Allocation Routines" 
describes the internal logic and 
organization of the Dynamic Allocation 
Interface Routine (DAIR) and the SVC 99 
dynamic allocation routines and their 
relationship to each other and to other 
programs, including the LOGON/LOGOFF 
Scheduler, the Terminal Monitor Program, 
the TSO command processors. 

"Part 5: Default Service Routine" 
describes the internal logic and 
organization of Default and its 
relationship to other programs including 
PUTLINE, PUTGET, and the Catalog 
Information Routine. 

"Part 6: Catalog Information Routine" 
describes the internal logic and 
organization of the Catalog Information 
Routine and its relationship to other 
programs including the routines invoked by 
the LOCATE macro instruction. 
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Summary of Amendments 

for GY28-6770-2 

OS Release 21.6 



ADDITIONS TO THE PARSE SERVICE ROUTINE I PART 4; Section 5; Data Areas 
(IKJPARS) I A correction is made to the DAIR 

A new load module (IKJPARS2) is added, | ATTRIBUTE CONTROL BLOCK (DAIRACB) 

This module includes the following 

three macro instructions . 

• IKJTERM 

• IKJOPER 

• IKJRSVWD 

These macro instructions provide syntax 
checking for the following positional 
parameter types. 

• CONSTANT 

• VARIABLE 

• STATEMENT NUMBER 
o EXPRESSION 

• RESERVED WORD 

Information is provided in PART 3: 
COMMAND SCAN AND PARSE SERVICE 
ROUTINES. 



Summary of Amendments 13 



Summary of Amendments 

for GY28-6770-1 

as Updated by GN28-2524 

Component Release 360-OS-586 



DYNAMIC SPECIFICATION OF DCB PARAMETERS 
DAIR and MVT Dynamic Allocation 
received the following changes: 

• A DAIR subroutine named DAIR 3 4 was 
added. 

• A DAIR parameter block (DAPB34) was 
added. 

• A DAIR Attribute Control Block 
(DAIRACB) was added. 

• An Attribute Control Block (ATRCB) 
was added. 



A Dynamic Allocation routine, 

function code X ■ 07 " , was added. 

A DAIR subroutine named ATTRSRCH was 

added. 



These changes affected the introduction, 
method of operation (text and diagrams), 
program organization, module descriptions, 
flowcharts, directory, data areas and 
index. 
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Summary of Amendments 

for GY28-6770-1 

OS Release 21 



PART 1; TERMINAL MONITOR PROGRAM 

Miscellaneous Changes -to -the TMP 
Section 2: Method of Operation — 
Changes to the handling of STAE and 
STAI requests ,, outlined in the text. 
Section 3: Program Organization — 
Changes indicated by bars to the left 
of the text of the module descriptions 
for IKJEFT01, IKJEFT02, IKJEFT03 , 
IKJEFT04, and IKJEFT07; changes to 
flowcharts AC- AM. 

Section 5: Data Areas — Indicated 
changes to the Protected Step Control 
Block (PSCB), TMP Retry Work Area 
(TMPWA2), and TMP Work Area (TMPWORKA). 



PART 4; DYNAMIC ALLOCATION ROUTINES 

Completely Rewritten Chapter for Release 

21 

The chapter now incorporates the 
documentation for the SVC 99 routines 
with the information about the Dynamic 
Allocation Interface Routine (DAIR) 
previously in the chapter. It also 
describes the relationship between 
these two parts of dynamic allocation. 



PART 3; 



COMMAND SCAN AND PARSE SERVICE 



ROUTINES 

Miscellaneous Changes to Parse 

Section 2: Method of Operation — 
Changes to string notation and 
positional parameters. 
Section 5: Data Areas — Updates to 
Parameter Descriptor Entry for IKJPOSIT 
Macro Instruction (Address Parameters); 
addition of a flag byte to and the 
subsequent address updating for the 
Parse Parameter List; addition of the 
Syntax Checking Mask Area. 
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MVT Control Program 



one per 
system 



Time Sharing 

Control Task 

(TSCT) 



Telecommunications 

Access Method 

(TCAM) 



Message Control 
Program (MCP) 



one per 
region 



Region Control 
Task 



one per 
user 



LOGON/LOGOFF 
Scheduler 



one per 

user 

session 



Terminal Monitor 
Program 



TEST Command 
Processor 



one per 
command 



Command Processor 



Command Processor 



L 



At the highest level are the Time Sharing Control 
Task (TSCT) and the Message Control Program 
(MCP). The TSCT handles system-wide functions 
such as the initialization procedures required when 
the operator starts time sharing, and the swapping 
of foreground jobs in and out of main storage. 
The MCP is a part of the Telecommunications 
Access Method (TCAM) and handles I/O for all 
terminals. 



Below the TSCT is a Region Control Task (RCT) 
for each foreground region. The RCT supervises 
the foreground jobs assigned to its region, 
including the quiescing and restoring of job 
activities before and after swapping. 



The Logon/Logoff Scheduler (LOGON) is 
invoked by the RCT whenever a user wants to 
log on or off the system and defines his foreground 
job using parameters in the logon procedure, 
user profile, and operands of the LOGON 
command. 



LOGON invokes a problem program specified by 
the user logon procedure. This program, normally 
the Terminal Monitor Program (TMP), handles 
TSO and user-supplied commands. One of these 
commands invokes the TEST command processor 
which has the same task level as the TMP. 



5 TSO command processors, and their subtasks, 
are at the lowest level. 

They perform the work required by the terminal 
user. 



figure 1. TSO System Overview 
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Introduction 



The Time Sharing Option (TSO) extends the capabilities of the System/360 
Operating System to include general purpose time sharing from terminals 
supported by the Telecommunications Access Method (TCAM) . 

You should remember three things about TSO: 

• OS/360 supervises the execution of all TSO programs, in regions of 
main storage assigned by the MVT control program. 

• TSO provides time sharing. 

• TCAM provides terminal support. 

TSO System 

Figure 1 shows the relationship between major programs in a TSO system. 
Both TSO and TCAM execute as problem programs under the MVT control 
program, but as far as the terminal user is concerned, TSO is a system 
• — the only system he needs to know about. 

The terminal user describes the work he wants done by entering TSO 
commands. These commands are received by the Terminal Monitor Program 
(TMP) which gives control to the appropriate TSO command processor. One 
TSO command invokes the TEST command processor which executes at the 
same task level as the TMP. All other command processors execute as 
subtasks of the TMP. 

As the TMP and the command processors execute, they may invoke the TSO 
service routines to perform the following operations: 

• Handling input/output operations to or from terminals supported by 
TCAM. 

• Searching input buffers for TSO commands and TSO command parameters. 

• Allocating and freeing data sets and performing other data 
management functions. 

All service routines execute at the same task level as the program that 
invokes them. 



Terminal Monitor Program 

The Terminal Monitor Program obtains TSO commands, gives control to TSO 
command processors, and monitors their execution as shown in Figure 2. 

The TMP is a problem program executed by the IBM- supplied user logon 
procedure. An installation may write a similar program and substitute 
it for the TMP as described in the publication IBM System/360 Operating 
System: Time Sharing Option: Guide to Writing a Terminal Monitor 
Program or a Command Processor , GC28-6764. 
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The TMP does the following -things: 

• Obtains a new command and gives control to the appropriate command 
processor. 

• Handles attention requests. 

• Attempts to recover from errors in a command processor or one of its 
subtasks . 

• Attempts to recover from errors in its own routines* 

• Returns control to the LOGON/LOGOFF scheduler when the operator 
issues a STOP command or when the terminal user enters a LOGON or 
LOGOFF command. 
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Figure 2. Terminal Monitor Program and Service Routines 



TSO Command Processors and User Programs 



TSO command processors are problem programs that perform the operations 
requested by a TSO command such as EDIT, CALL f RUN f ALLOCATE, etc. 
Figure 3 shows the functions performed by IBM-supplied TSO command 
processors,. An installation may write similar programs for use as 
command processors as described in the publication IBM System/360 
Operating System; Time Sharing Option; Guide to Writing a Terminal 
Monitor or a Command Processor , GC28-6764. 

Some TSO command processors call on standard system processors to 
perform the requested function. For example, the COBOL command 
processor sets up a standard calling sequence according to the options 
selected by the user and transfers control to the ANS COBOL compiler to 
compile the user's program. Except for the special formatting of output 



18 Terminal Monitor Program (Release 21.6) 



and messages, the compiler operates exactly as it would in a non-TSO 
environment . 



Test Command Processor 

The TEST command processor allows the terminal user to test a command 
processor or other user program. Since it must be able to control the 
execution of command processors, the TEST command processor executes at 
the same task level as the TMP — receiving control by a LINK, rather 
than an ATTACH, macro instruction. For further information about the 
TEST command processor, refer to the publication IBM System/360 
Operating System; Time Sharing Option; Command Processor PLM Volume 7 
TEST , GY28-6777. 



TSO Service Routines 

The TSO service routines are used by the TMP, TEST, and other TSO 
command processors. In general, they perform services needed by all TSO 
problem programs and their use as subroutines saves repetitive coding in 
the command processors. Figure 4 shows the functions performed by the 
TSO service routines. 



TERMINAL I/O SERVICE ROUTINES 

The Terminal I/O Service Routines handle terminal input/output 
operations reguired by the LOGON/LOGOFF Scheduler, the Terminal Monitor 
Program, the TSO command processors, and other TSO problem programs. 

There are four terminal I/O service routines: 

• STACK — which maintains a list of input sources and defines the 
current source of input. 

• GETLINE — which obtains a line of input from the terminal or from 
the current source of input. 

• PUTLINE — which sends output or messages to the terminal. 

• PUTGET — which sends a message to the terminal and obtains a line 
of input from the current source of input. 

COMMAND SCAN AND PARSE SERVICE ROUTINES 

Command Scan and Parse search the command buffer for TSO commands and 
their parameters. In general. Command Scan is invoked by the Terminal 
Monitor Program while Parse is invoked by TSO command processors. 
Command Scan is also invoked by the TEST command processor and by TSO 
command processors that accept subcommands. 

DYNAMIC ALLOCATION INTERFACE ROUTINE 

The Dynamic Allocation Interface routine (DAIR) handles the allocation 
and freeing of data sets needed by the Terminal Monitor Program, the TSO 
command processors, and other TSO problem programs. In general, DAIR 
obtains information about a data set and, if necessary, invokes MVT 
dynamic allocation routines which perform the requested function. 
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DEFAULT SERVICE ROUTINE AND CATALOG INFORMATION ROUTINE 

The Default Service Routine constructs a data set name that follows TSO 
data set naming conventions. The Catalog Information Routine obtains 
information from the system catalog. 

Figure 3 summarizes the functions performed by each TSO command 
processor and shows how each command processor receives control from the 

TMP. 
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Command | 



Function | Given control by | 



ALLOCATE 

ACCOUNT 

ASM 1 

ATTRIB 

CALC* 

CALL 
CANCEL 

COBOL 1 
CONVERT*- 

COPY 1 - 

DELETE 

EDIT 
EXEC 

FORMAT 1 

FORT* 

FREE 

HELP 

LINK 

LIST* 

LISTALC 



Allocate data sets. 

Update the user attribute data set. 

Invoke Assembler Language Compiler. 

Build a list of data set attributes. 

Invoke the ITFzPL/1 or CODE£GO 
FORTRAN 

Load and execute a load module. 

Cancel a foreground- initiated 
background job. 

Invoke the ANS COBOL compiler. 

Convert ITF:PL/1 or CODESGO FORTRAN 
source programs to standard PL/1 or 
FORTRAN. 

Copy a data set (sequential or 
partitioned) to another data set. 

Delete and uncatalog a data set or 
member of a partitioned data set. 

Create and/or edit a data set. 

Invoke a command processor or list 
of command processors. 

Format a data set. 

Invoke the FORTRAN IV Compiler. 

Free an allocated data set or an 
attribute list.. 

Display information about command or 
subcommand. 

Invoke the linkage editor. 

List one or more data sets. 

List allocated data sets. 



ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH, Macro Instruction 

ATTACH Macro Instruction 
ATTACH Macro Instruction 

ATTACH Macro Instruction 
ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 
ATTACH Macro Instruction 

ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 



Figure 3. Functions Performed by TSO Command Processors (Part 1 of 2) 



20 Terminal Monitor Program (Release 21.6) 



r T" 

I Cominand I 



Function 



h 



LISTBC 

LISTCAT 
LISTDS 

LOADGO 
LOGOFF 
LOGON 
MERGER- 
OPERATOR 

OUTPUT 

PLI* 
PLIC* 

PROFILE 
PROTECT 
RENAME 

RUN 

SEND 

STATUS 

SUBMIT 

TERMINAL 

TEST 

TIME 

WHEN 
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List messages from operator or other 
users as entered on the Broadcast 
Data Set. 

List catalog entries . 

List the attributes of one or more 
data sets. 

Load and execute an object module. 

End a terminal session 

Begin a terminal session. 

Combine data sets. 

Make the terminal an operator's 
console. 

Direct the output for a 

foreground- initiated background job. 

Invoke the optimizing PL/1 compiler. 

Invoke the checkout PL/1 compiler. 

Update the User Profile Table (UPT) . 

Create or modify a password. 

Rename a data set or a member of a 
partitioned data set. 

Compile, load, and execute a 
program. 

Send a message to the operator or to 
a terminal user. 

List the status of a 

foreground- initiated background job. 

Submit a job for interpretation and 
execution in the background. 

Update the Protected step Control 
Block (PSCB). 

Test a command processor or user 
program. 

List CPU time. 



Establish condition for initiation 
or termination of a command 
processor. 



Given Control by | 
f 

ATTACH mAcr o In str uc tion 



ATTACH Macro Instruction 
ATTACH Macro Instruction 

ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 
LINK Macro Instruction 
ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 
ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 

ATTACH Macro Instruction 

LINK Macro Instruction 



Branch-and- 1 ink- 
register instruction 

ATTACH Macro Instruction 



-i 



^Optional program products; available for a license fee. 

L J 

Figure 3. Functions Performed by TSO Command Processors (Part 2 of 2) 
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As the TMP, TEST, and other command processors execute, they may 
request services from any of the TSO service routines shown in Figure 4. 



| Functional Group | Common Name | Module Name| Function 



1/0 Service Routines! STACK 



I- 



GETLINE 



PUTLINE 



PUT GET 



IKJPTGT 



IKJPTGT 



IKJPTGT 



IKJPTGT 



Maintains stack of input 
sources. The top 
element describes the 
current source of input. 
The bottom element 
describes the terminal 
as a source of input. 

Gets a line of input 
from the current source 
or from the terminal. 

Sends a line of output 
to the terminal. 

Sends a line of output 
to the terminal; gets a 
line of input from the 
terminal. 
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Dynamic Allocation 
Interface Routine 

Command Scan/Parse 
Service Routines 



DAIR 



IKJDAIR 



Allocates 
data sets. 



Command Scan 



Parse 



IKJSCAN 



IKJPARS 



1 

Checks command names for 
valid syntax. 

Checks command 
parameters for valid 
syntax. 



Default Service 
Routine 



Default 



IKJEHDEF 
IKJDFLT 



Constructs a data set 
name according to TSO 
naming conventions. 



Catalog Information 
Routine 



CIR 



IKJEHCIR 



Searches the system 
catalog for information 
about data sets. 



Figure 4. Functions Performed by TSO Service Routines 

These service routines are invoked using system macro instructions. The 
internal logic of these routines is described in separate parts of this 
book . 
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Section 1: Introduction 



The Terminal Monitor Program obtains TSO commands, gives control to TSO 
command processors, and monitors their execution. 

The TMP is a problem program executed by the IBM-supplied user logon 
procedure. An installation may write a similar program and substitute 
it for the TMP as described in the publication IBM System/360 Operating 
System: Time Sharing Option: Guide to Writing a Terminal Monitor 
Program or a Command Processor , GC28-6764. 

The TMP obtains its first command from the user logon procedure and 
gives control to the appropriate command processor. After the first 
command has been processed, the TMP does one of the following: 

• Obtains a new command and gives control to the appropriate command 
processor. 

• Handles attention requests. 

• Attempts to recover from errors in a command processor or one of its 
subtasks. 

• Attempts to recover from errors in its own routines. 

• Returns control to the LOGON/LOGOFF scheduler when the operator 
issues a STOP command or when the user enters a LOGON or LOGOFF 
command. 

As supplied with TSO f the TMP will reside in SYSl.LINKLIB and will 
execute in the user's foreground region with the protection key assigned 
to that region. The installation may choose to make the TMP resident in 
the TSO Link Pack Area (TSLPA) in the region assigned to the Time 
Sharing Control Task (TSCT) . 
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Section 2: Method of Operation 



This section describes the method of operation of the Terminal Monitor 
Program. It includes six method of operation diagrams: 

• Method of Operation Diagram 1 (foldout) : Terminal Monitor Program 
— which shows the basic functions performed by the TMP. 

• Method of Operation Diagram 2 (foldout): TMP Initialization — 
which shows how the TMP completes the logon process by setting up 
tables and control blocks that define the user's environment in the 
foreground region. 

• Method of Operation Diagram 3 (foldout) : Handling Commands — which 
shows how the TMP obtains commands from the terminal and gives 
control to the appropriate command processor. 

• Method of Operation Diagram 4 (foldout): Handling Attention 
Requests — which shows how the TMP handles terminal attention 
requests. 

• Method of Operation Diagram 5 (foldout): Handling STAI Requests — 
which shows how the TMP attempts to recover from errors in a command 
processor or one of its programs. 

• Method of Operation Diagram 6 (foldout): Handling STAE Requests — 
which shows how the TMP attempts to recover from errors in its own 
programs . 

Each method of operation diagram includes a cross-reference table to 
help you find the appropriate program description, flowchart, or 
assembly listing. 



Overview 

Method of Operation Diagram 1 (foldout) shows how the TMP obtains TS0 
commands, gives control to TSO command processors, and monitors their 
execution. 

Briefly, here is what happens: 

• The TMP receives control from the LOGON/LOGOFF scheduler as the 
program named by the first EXEC statement in the user logon 
procedure. 

• The TMP completes the logon process by setting up tables and control 
blocks that define the user's environment in the foreground region. 

• The TMP obtains TSO commands and gives control to the appropriate 
TSO command processors, one at a time. 

• When a TSO command processor completes normally, the TMP obtains a 
new TSO command and gives control to a new TSO command processor. 

• When a TSO command processor is interrupted by an attention at the 
TMP level, the TMP Attention Exit Routine handles the attention 
request. 
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• When a TSO command processor begins to terminate abnormally, the TMP 
STAI Exit Routine attempts to recover from the error. 

• When the TMP begins to terminate abnormally, the TMP STAE Exit 
Routine attempts to recover from the error. 

• The TMP returns control to the LOGON/LOGOFF scheduler when the user 
enters a LOGON or LOGOFF command or when the operator issues a STOP 
command. 

Figure 5 summarizes the functions performed by the TMP. 
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Event 



Action Taken 



t- 



Command processor completes 
normally. 



TMP obtains a command and gives control 
to the next command processor. See 
Diagram 3 (foldout). 



-H 



Command processor interrupted 
by attention. 



TMP Attention Exit Routine displays 
second-level messages in response to a 
question mark or obtains a new command 
to replace the command that was 
interrupted. See Diagram 4 (foldout). 



Command processor begins to 
terminate abnormally. 



TMP STAI Exit Routine attempts to 
recover from the error. See Diagram 5 
(foldout) . 



TMP begins to terminate 
terminate abnormally. 



TMP STAE Exit Routine attempts to 
recover from the error. See Diagram 6 
(foldout). 



h 



Operator or terminal user has 
requested logoff or re- logon. 



TMP returns control to the LOGON/LOGOFF 
Scheduler. 



Figure 5. Functions Performed by the Terminal Monitor Program 



Initialization 



Method of Operation Diagram 2 (foldout) shows how the TMP completes the 
logon process by setting up tables and control blocks that define the 
user's environment in the foreground region. 

Briefly f here is what happens: 

• The TMP receives control from the LOGON/LOGOFF scheduler as the 
program named by the first EXEC statement in the user logon 
procedure. 

• At entry, register 1 contains the address of a buffer that contains 
the PARM value from the first EXEC statement in the user logon 
procedure. 

• The TMP uses an EXTRACT macro instruction to obtain the address of 
the Protected Step Control Block which contains the address of the 
User Profile Table (UPT). 

• The TMP sets up the Environment Control Table (ECT) and two internal 
work areas: the TMP Work Area (TMPWORKA) and the TMP Retry Work 
Area (TMPWA2). 
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• The TMP sets up the TMP attention exit by issuing a STAX macro 
instruction and loading the TMP Attention Exit Routine. 

• The TMP sets up the TMP STAE exit by issuing a STAE macro 
instruction and loading the TMP STAE Exit Routine. 

• The TMP partially sets up the STAI exit by loading the STAI exit 
routine. Later, when the TMP attaches a command processor , the STAI 
operand on the ATTACH macro instruction will provide supervisor 
linkage to the STAI exit routine. 

• The TMP loads the TIME command processor. 

• The TMP sets up the Command Buffer and obtains its first command 
from the PARM field of the first EXEC statement in the user logon 
procedure. 

When initialization is completed, the TMP is ready to process the first 
command. 



Handling TSO Commands 

Method of Operation Diagram 3 (foldout) shows how the TMP obtains 
commands from the terminal and gives control to the appropriate command 
processor. 

Briefly, here is what happens: 

• The TMP uses the PUTGET service routine to obtain a line of input 
from the terminal or from an in-storage list. The line is placed in 
the Command Buffer (CBUF). 

• The TMP uses the Command Scan service routine to search the Command 
Buffer for a command name, a question mark, or a null line. The TMP 
tests for four special cases and takes the appropriate action: 



"i 



Buffer Contains | Action Taken by TMP 

. + , 



TIME | Branch to TIME command processor. 

I 
TEST | Link to TEST command processor. 

I 

Question mark | Display all chained second level 

| mess ages. (Done by PUTGET.) 

I 
Null | Ignore line. Obtain another line. 

L X J 

• The TMP searches the command library to obtain the TSO command 
processor that corresponds to the TSO command. If the command 
processor is not found, the TMP assumes that the intended command is 
EXEC and that the command buffer contains a valid member name. 

• The TMP attaches the command processor as a subtask and waits for it 
to complete as shown in Method of Operation Diagram 1 (foldout). 
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Handling Attention Requests 



Method of Operation Diagram 4 (foldout) shows how the TMP handles 
terminal attention requests. 

During initialization, the TMP loads the Attention Exit Routine and 
sets up supervisor linkage to it by issuing a STAX macro instruction. 
The STAX service routine builds a Terminal Attention Exit Element (TAXE) 
and a Terminal Attention Interrupt Element (TAIE) and chains them to the 
TMP f s TCB. 
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Later # when the terminal user signals attention, program execution is 
interrupted and the Attention Scheduler (a part of the Region Control 
Task) gets control. The Attention Scheduler checks the TCB of the 
interrupted program for a Terminal Attention Exit Element (TAXE) and 
schedules the most recently specified attention exit routine. 

If the interruption occurs while the TMP is processing, the TMP*s 
attention exit routine will receive control. If the interruption occurs 
while a command processor is processing, the command processor 1 s 
attention exit routine will receive control unless the attention is 
signaled twice. Signaling attention two times in quick succession will 
cause the next higher-level attention exit routine to receive control. 

The TMP Attention Exit Routine uses the Command Scan service routine 
to search the attention buffer for question mark, null line, or command 
name. The contents of the attention buffer determines the action taken 
by the TMP Attention Exit Routine as shown in Figure 6. 



| Buffer Contains 



j Action Taken by TMP Attention Exit Routine 



H 



H 



Question mark 



+- 



Writes second-level message to the terminal using 
PUTLINE service routine. Prompts terminal for 
another line of input using PUTLINE and GETLINE 
service routines. 



— I 



Null line 



l 

Invalid Command 



Returns to Attention Scheduler which restarts 
interrupted program from the point of 
interruption . 



Writes error message using the PUTLINE service 
routine. Prompts terminal for another line of 
input using the PUTLINE and GETLINE service 
routines . 
_ _ \ 

Branches to TIME command processor to obtain 
elapsed time, CPU time, and time for the terminal 
session. 



TIME 



h 



Other Valid Commands 



Places command name in Command Waiting field of 
the TMP Work Area (TMPWORKA) and posts the TMP 
Attention ECB. The TMP will detach a previously 
attached command processor, if any, and obtain 
the new command. See Diagram 3 (foldout). 



H 



Figure 6. Functions Performed by TMP Attention Exit Routine 
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Handling STAI Requests 

Method of Operation Diagram 5 (foldout) shows how the TMP attempts to 
recover from errors in a TSO command processor or one of its programs. 

During initialization, the TMP loads the STAI Exit Routine. Later, 
when the TMP attaches a command processor as a subtask, the TMP includes 
a STAI operand on the ATTACH macro instruction specifying the entry 
point of the STAI Exit Routine. 

The STAE service routine builds a STAI Control Block and chains it to 
the TCBNSTAE field of the command processor's TCB. Note that the STAE 
service routine handles both STAE and STAI exit routines. 

When an error occurs in the command processor or one of its subtasks, 
the ABEND routine checks the TCBNSTAE field of the failing task's TCB to 
see if any STAI or STAE Control Blocks have been chained and, finding 
one, passes control to the ABEND/STAE interface routine.. Note that the 
ABEND/STAE interface routine handles both STAE and STAI requests. 

The ABEND/STAE interface routine quiesces all active I/O, purges all 
ready I/O, and schedules the most recently specified STAE exit routine 
by issuing a SYNCH macro instruction. Normally, the command processor's 
STAE exit routine will get control. 

The command processor's STAE exit routine (if one is supplied) 
attempts to diagnose the cause of the error, uses a return code to mark 
it recoverable or unrecoverable, and returns control to the ABEND/STAE 
interface routine. This routine passes control to the STAE Retry 
Routine (if one is specified) which will attempt to restart the 
interrupted program. 

If the retry is not successful, or if no retry routine was specified, 
the ABEND/STAE interface routine checks the STAE/STAI chain for the most 
recently specified STAI exit. Note that only one STAE exit routine is 
ever executed while any number of STAI exit routines may be executed. 

The TMP STAI exit routine uses the PUTLINE service routine to write a 
message to the terminal indicating that the task has failed. It then 
checks to see whether the error occurred in a command processor running 
under the TMP or running under the TEST command processor. 

If the error occurred in a command processor running under the TEST 
command processor, the STAI exit routine posts the TMP STAI ECB and 
transfers control to the TEST command processor. 

The STAI exit routine then waits on the command processor f s ECB. The 
TEST command processor posts this ECB immediately, specifying a retry 
address. The STAI exit routine marks the ABEND recoverable and returns 
control to the ABEND/STAE interface routine. The ABEND/STAE interface 
routine passes control to the retry address, which is an entry point in 
the TEST command processor. 

If the error occurred in a command processor running under the TMP, 
the TMP STAI exit routine posts the TMP STAI ECB and immediately 
transfers control to the TMP mainline routine. 

The STAI exit routine then waits on the command processor f s ECB. The 
TMP posts this ECB whenever it is impossible to recover from the error. 
The TMP mainline routine then prompts the terminal to enter another 
command using the PUTGET service routine - 
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The T$P Mainline routine will use the Command Scan service routine to 
search the buffer for the TEST command name and, if found, will transfer 
control to the TEST command processor. 

Except for the TIME or TEST commands, any valid command in the input 
buffer causes the command processor to be detached, thereby canceling 
the outstanding STAI request. 

If the buffer contains a null line, the ECB for the abnormally 
terminating command processor is posted. The STAI exit routine then 
checks the post code, marks the ABEND unrecoverable, and returns control 
to the ABEND/STAE interface routine. 

All other input is processed as though the STAI condition had not 
occurred. 

The ABEND/STAE interface routine will check the TCB of the failing 
task for another STAI exit and, finding none, will return control to the 
ABEND routine which will terminate the task. 
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Handling STAE Requests 



Method of Operation Diagram 6 (foldout) shows how the TMP attempts to 
recover from errors in its own code. 

During initialization, the TMP loads a STAE exit routine and sets up 
supervisor linkage to it by issuing a STAE macro instruction. The STAE 
service routine builds a STAE Control Block and chains it to the TMP's 
TCB. 

When an error occurs in the TMP,, the ABEND routine checks the TMP's 
TCB for a STAE Control Block and, finding one, passes control to the 
ABEND/STAE interface routine which marks the task non-dispatchable and 
passes control to the TMP's STAE exit routine. 

The TMP's STAE exit routine attempts to diagnose the cause of the 
error and returns to the ABEND/STAE interface routine with a return code 
that indicates whether the error is recoverable or not recoverable. If 
the error is not recoverable, the ABEND/STAE interface routine returns 
control to the ABEND routine which terminates the task. If the error is 
recoverable, the ABEND/STAE interface routine passes control to the 
TMP's STAE retry routine which attempts to restart the TMP. 

The TMP's STAE retry routine determines whether a recovery has been 
attempted for this command processor. If so, the STAE retry routine 
deletes all TMP modules and transfers control to the TMP initialization 
routine, IKJEFT01. Otherwise it transfers control to the TMP mainline 
routine, IKJEFT02. 

If the retry is successful, TMP processing continues as if nothing 
had happened. If the retry is not successful, the ABEND routine passes 
control to the ABEND/STAE interface routine which passes control to the 
TMP's STAE routine for cleanup operations before returning to the 
ABEND/STAE interface routine. 

The ABEND/STAE interface routine then checks the TMP's TCB for the 
most recently specified STAI exit routine and, finding none, returns to 
the ABEND routine which terminates the TMP. 
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IKJEFT01 




XCTL 


IKJEFT02 








TMP Initialization 
Routine 




TMP Mainline 
Routine 




IKJEFTC 


1 
6 

Normal Residence 
SYS1.UNKLIB 
SYSl.LINKLIB 


IKJEFT02 




1 TMP Mainline 




^^^^^^H 






IKJEFT03 




1 Initialization 










I TMP Attention 
I Exit 






IKJEFTO 




IKJEFT04 




1 TMP STAI Exit 






IKJEFTOf 




I TMP Messages 


1 TMP STAE Exit 










IKJEFT0<f 




■■■■^^H 






1 TMP Messages 






IKJEFT07 


1 TMP STAE Retry 












Load Module Names 
IKJEFT01 
IKJEFT02 




Approximat 
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Figure 7. Program Hierarchy: Terminal Monitor Program 
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Section 3: Program Organization 



This section describes the program organization of the Terminal Monitor 
Program. It contains three types of information: 

• Program Hierarchy Chart (Figure 7) — which shows how the Terminal 
Monitor Program is organized in terms of load modules and assembly 
modules. 

• Program Descriptions — which describe the overall logic of 
individual routines. 

• Program Flowcharts — which show the detailed logic of individual 
routines. 

For a summary of functions performed by subroutines, refer to the 
Directory in Section 4. 

Program Hierarchy 

The TMP has two load modules as shown in Figure 7. The TMP 
Initialization Routine (IKJEFT01) completes the logon process by setting 
up tables and control blocks and setting up the STAE, STAI and Attention 
exit routines. The TMP Mainline Routine (IKJEFT02) obtains TSO 
commands, gives control to TSO command processors, and monitors their 
execution. 

The TMP consists of seven separate routines. They are: 

IKJEFT01 - TMP Initialization Routine. 
IKJEFT02 - TMP Mainline Routine. 
IKJEFT03 - TMP Attention Exit Routine. 
IKJEFT04 - TMP STAI Exit Routine. 
IKJEFT05 - TMP STAE Exit Routine. 
IKJEFT06 - TMP Message Module. 
IKJEFT07 - TMP STAE Retry Routine. 




Section 3: Program Organization 33 



Module Descriptions 



IKJEFT01 — TMP INITIALIZATION ROUTINE 



Entry 



_ T 



r r 1 

| | Operation 

| Flowcharts | Diagrams 

|AA AB | 2 4-6 

-J jl 



Attached by the initiator /terminator as the program 
named by the first EXEC statement in the user LOGON 
procedure. 



Registers 
at Entry 



Register 1: 
Register 13 : 
Register 14 : 
Register 15: 



tTMP Parameter List 
t Register Save Area 
t Return Point 
t Entry Point 



H 



Operation 



I 

Data Areas 
Defined by 



Builds tables and work areas , sets up exit routines, 
builds the first element on the Input Stack, and 
initializes the Command Buffer before transferring 
control to TMP Mainline IKJEFT02. 

• Gets main storage for the TMP Work Area. 

• Sets up the Environment Control Table (ECT) 

• Sets up the TMP STAE exit. 

• Sets up the TMP ATTN exit. 

• Loads the TMP STAI exit routine. 

• Loads the TIME command processor. 

• Sets up the input stack. 

• Gets main storage for the Command Buffer. 

• Gets first command and places it in Command Buffer. 
+ 

TMP Work Area, ECT, STAE Control Block 
STAI Control Block, Command Buffer 



-H 



Data Areas 
Updated by 



UPT 



h 



Mapping Macros 
Used 



+ 



System Macros 
Used 



! 

Routines Called 
1 

Exit 



IKJCPPL IKJGTPB IKJPTPB 

IKJCSOA IKJECT IKJPGPB 

IKJCSPL IKJIOPL IKJPSCB 

+- 



IKJSTPB 
IKJTMPWA IKJUPT 



ABEND 

BLDL 

LOAD 



EXTRACT 
GETMAIN 
RETURN 



STACK 
PUT LINE 
STAX 



STCC 
STAE 
XCTL 



-H 



STCOM 



None 



Registers 
at Exit 



Transfers control to IKJEFT02 using an XCTL macro 
instruction . 
+ 

Register 1 contains the address of the TMP Work 
Area. 



h 



h 



Messages 



See Figure 8. 



-+ 



-H 



ABEND Codes 



101 BLDL error 

103 PUTLINE error 

104 STACK error 

105 STAX error 
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IKJEFT02 — TMP MAINLINE ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagrams 

I. + j 

| AC- AG |1 3-6 

-J x 



Entry 

Registers 
at Entry 



| Entered from IKJEFT01 
|STAE retry) . 

| Register 1: 



Operation 



j. 

Data Areas 
Defined by 

^ 

Data Areas 
Updated by 



(normal) or from IKJEFT07 (for 



-H 



Register 13: 
Register 14: 
Register 15 : 



tCommand Buffer (If entry is from 
IKJEFT07, the buffer length field is 0.) 

? Register Save Area 

t Return point 

t Entry point 

| Obtains a command name, gives control to the 
[appropriate command processor, waits for it to 
complete before obtaining another command • 

Obtains first command from IKJEFT01, subsequent 

commmands using PUTGET service routine. 

Checks command for validity using Command Scan. 

- if invalid, prompts user for valid command. 

- if null, obtains another command. 

- if question mark, sends any second-level messages 
queued by the last command processor using 
PUTLINE service routine. 

- if TIME, obtains running time for the terminal 
session by branching to the TIME command 
processor. 

- if TEST, allows the user to test a program by 
linking to the TEST command processor. 

Searches the user Command Library using a BLDL 
macro instruction to obtain the appropriate command 
processor. 

- if not found, the TMP assumes that the command 
processor is EXEC and that the invalid command 
name is a valid member name for use by the EXEC 
command processor. 

Abnormally detaches a previous command processor, 

if any,. 

Attaches the appropriate command processor. 

Waits on an ECB list. The MVT Dispatcher will give 

control to the appropriate command processor. 

On return from the MVT Dispatcher following a POST, 

does one of the following: 

- Detaches a normally completed command processor 
and gets another command. (CP ECB posted.) 

- Abnormally detaches a command processor and gets 
another command. (Attention ECB posted.) 

- Attempts to recover from error. (STAI ECB 
posted. ) 

- Returns to LOGON/LOGOFF scheduler. (STOP/MODIFY 
ECB posted.) 



H 



None 



None 



D 



(Continued) 
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Routines 
Called 



IKJEFT25 f IKJSCAN 



-H 



Mapping Macros 
Used 



IKJCPPL 
IKJCSOA 
IKJCSPL IKJECT 



IKJIOPL IKJTMPWA 
IKJPGPG IKJUPT 
IKJPSCB 



System Macros 
Used 



ATTCH 
DETACH 
GETMAIN 
LINK 



BLDL POST 
FREEMAIN WAIT 



PUTGET 
STATUS 
PUTLINE 
TSEVENT 



RETURN 
ABEND 



-H 



Exit 



Registers 
at Exit 



Returns to LOGON/LOGOFF scheduler 



Register 15 contains 0. 



I~ 



Messages 



See Figure 8. 



-H 



ABEND Codes 



2 01 - BLDL Error 

202 - Dynamic Allocation Error 

203 - PUTGET Error 

204 - PUTLINE Error 

205 - SCAN Error 

206 - STACK Error 
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IKJEFT03 — TMP ATTENTION EXIT ROUTINE 



h 



h 



Entry 



Registers 
at Entry 



Operation 



t- 



Data Areas 
Used By 



h 



Data Areas 
Updated By 



h 



r t 1 

| | Operation 

| Flowcharts! Diagrams 

t + .j 

I ah | a 

J -L 



Mapping Macros 
Used 



System Macros 
Used 



Routines Called 



Exit 



Registers 
at exit 

i 

Messages 
f 

ABEND Codes 



Entered from the Region Control Task (RCT) when the 
terminal user requests Attention. The address of the 
Attention exit routine was specified using a STAX 
macro instruction during TMP initialization 
(IKJEFT01). 



Register 1 : 
Register 13 
Register 14 
Register 15 



tAttention Exit Parameter List 
t Register save area 
t Return point 
t Entry point 



h 



Obtains command from Attention Buffer, Checks 
command syntax using Command Scan service routine. 
Prompts for valid command using PUTLINE and GETLINE. 
Special cases: 

• Time-Obtains running time for terminal session. 

• Question mark-Sends messages to the terminal. 
Prompts for additional input using PUTLINE /GETLINE. 

• Null-returns to caller. 
Other commands : 

• Marks interrupted task non-di spa tenable using 
STATUS STOP macro instruction. 

• Moves new command into the TMPCMDWT field of the 
TMP Work Area. 

• Posts the TMP Attention ECB. When the TMP gets 
control it will obtain the new command to replace 
the interrupted command. 



ECT, TMP WORK Area 



TMP Work Area 



IKJTMPWA IKJCSPL 
TAIE IKJCSOA 
IKJIOPL IKJCPPL 
IKJECT IKJTAIE 
ECT IKJGTPB 



IKJPTPB 



PUTLINE ABEND STATUS 

GETLINE FREEMAIN RETURN 
CALL GETMAIN POST 



-H 



IKJEFT25, IKJSCAN 



Return to system's user exit routine of SVC 3. 



-H 



Register 15 contains the address of the next 
instruction or zero if no change to program flow. 



H 



See Figure 8 . 



301 — GETLINE error 
302— PUTLINE error 
| 3 03 — Command Scan error 

JL 






D 
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IKJEFT04 — TMP STAI EXIT ROUTINE 



r t 1 

I I Operation 

| Flowcharts | Diagrams 

| AJ | 5 

-J x 



Entry 



Registers 
at Entry 



i-- 



Given control by the MVT Dispatcher as the result of 
a SYNCH macro instruction issued by the ABEND /STAE 
interface routine. The ABEND/ST AE Interface Routine 
is entered from the ABEND routine when a command 
processor attached by the TMP (or the TEST command 
processor) begins to terminate abnormally. Note: 
the command processor's STAE exit routine, if any, 
will have received control before the TMP STAI exit 
routine receives control. 



Depends upon whether storage was available for a 
10 4- byte STAI Work Area. 



If storage was 
Register : 



Register 1: 
Register 13: 
Register 14; 
Register 15: 



available: 
Code from ABEND/STAE interface 
routine as follows: 
- active I/O was quiesced and is 

rest or able. 
4 - active I/O was halted and is not 

restorable. 
8 - no active I/O. 
♦104-byte STAI Work Area, 
t Register Save Area. 
t Return Point, 
t Entry Point. 



If storage was not available: 



Register 0: 
Register 1: 
Register 2: 
Register 13: 
Register 14: 
Register 15: 



12 

ABEND completion code. 

tSTAI Parameter List. 

t Register Save Area. 

t Return Point. 

t Entry Point. 



-H 



Operation 



Informs terminal that a task is terminating 
abnormally. 

If the command processor's STAE exit routine has 
marked the task unrecoverable, returns to the 
ABEND/STAE interface routine. 

If the command processor was executing under TEST 
when the ABEND occurred, posts the TMP STAI ECB. 

Otherwise: 

• Prompts the terminal for a command using STACK and 
PUTGET . 

• Posts the TMP STAI ECB. 

• Waits on STAI Exit ECB. 



(Continued) 
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Data Areas 

Defined by 

I 

Data Areas 
Updated by 



h 



Operation 
(cont.) 



Mapping Macros 
Used 



System Macros 
Used 



Routines Called 



J- 



Exit 



Registers 
at Exit 

I 

Messages 

I- 

ABEND Codes 



+ 



If recovery successful, marks recoverable, returns to 

ABEND, 

If recovery unsuccessful, returns to ABEND. 



None 



None 



IKJTMPWA IKJCSDA IKJPTPB 
IKJCSPL IKJCPPL IKJECT 
IKJIOPL IKJGTPB 



IKJSCAN IKJGETL 
IKJPUTL IKJPTGT 



WAIT 
POST 
FREEMAIN 



IKJEFT25 



RETURN to ABEND/STAE 
Interface routine 



Register 15 contains a return code. See Figure 10- 



See Figure 8. 



None 



~\ 



-H 



D 
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IKJEFT05 — TMP STAE EXIT ROUTINE 



h 



Entry 



j | Operation 

| Flowcharts | Diagrams 

| AK | 6 

~L JL 



Given control by the MVT Dispatcher as the result of 
a SYNCH macro instruction issued by the ABEND /STAE 
interface routine. The ABEND/ STAE Interface Routine 
is entered from the ABEND routine when the TMP or the 
TEST command processor begins to terminate 
abnormally. If the error is in the TEST command 
processor, the TEST STAE exit routine attempts to 
recover before the TMP STAE exit routine is entered. 



Registers 
at Entry 



h 



Depends upon whether storage was available for a STAE 
work area. 

If storage was available: 

Register 0: Code from ABEND/STAE interface routine 
as follows : 

Code Meaning 

- active I/O was quiesced and is 

restorable. 
4 - active I/O was halted and is not 

restorable. 
8 - no active I/O. 

Register 1: tl04-byte STAE Work Area. 

Register 13: t Register Save Area. 

Register 14: t Return Point. 

Register 15: tEntry Point. 

If storage was not available: 

Register : 12 

Register 1: ABEND completion code from the TCBCMP 

field of the TMP TCB. 
Reigster 2: tSTAE Exit Parameter List. 
Register 14: t Return point. 
Register 15: tEntry point. 



Operation 



Determines whether recovery is possible using branch 
table. If not possible, returns to ABEND/STAE 
interface routine with "no-retry" code. If possible, 
takes a SNAP dump of the user's region if SYSABEND or 
SYSUDUMP was specified. Loads the STAE Retry Routine 
IKJEFT07, and returns to the ABEND/STAE interface 
routine with a "retry" code. 

If the retry attempt by the TMP STAE Retry Routine 
fails, the TMP STAE exit routine is reentered from 
the ABEND/STAE interface routine. It again dumps the 
user's region if SYSABEND or SYSUDUMP was specified, 
detaches all subtasks and frees subpools 1-127 before 
returning to the ABEND/STAE interface routine. 



(Continued) 
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h 



t- 



J— 



Data Areas 
Defined By 



Data Areas 
Updated By 



Mapping Macros 
Used 



--+■ 



System Macros 
Used 



Routines Called 
t 

Exit 
, 

Registers 
at Exit 



h 



Messages 



ABEND Codes 



None 



None 



None 



CALL PUTLINE OPEN GETMAIN 
FREEMAIN SNAP DETACH DCB 
RETURN CLOSE LOAD 



None 

Returns to the ABEND/STAE interface routine. 

Register 15 contains the following code: 

- Retry not to be attempted. 
4 - Retry is to be attempted. 



See Figure 8. 
None 



-H 

-H 



-H 



D 



IKJEFT06 — TMP MESSAGE MODULE 



r t 1 

I I Operation 

| Flowcharts | Diagrams 

t + ^ 

| None | None 
_-L x 



| Entry 
I 



(. 

| Operation 

i 

| Contents 

l 



(Referenced by IKJEFT01, IKJEFT02 f IKJEFT03, IKJEFT04, 
|and IKJEFT0 5T. 



H 



| None. 



| All messages issued by TMP routines. See Figure 8. 

-J j 
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IKJEFT07 — TMP STAE RETRY ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagrams 

H 



AL 



I 



6 



h 



Entry 



Entered from the ABEND/ STAE interface Routine when 
the TMP STAE Exit Routine IKJEFT05 has determined 
that it is possible to recover from an error 
condition in the TMP or in the TEST command 
processor - 



Registers 
at Entry 



h 



Depends upon whether a 104-byte work area has been 
established by the ABEND/STAE Interface Routine. 

Register 0: tSTAE Work Area 

or 
zero, if no work area was established. 

Register 13: t Register Save Area 

Register 14: tReturn point 

Register 15: tEntry point 



-H 



Depends upon whether a retry has been attempted for 
this command processor. 

If no retry has been attempted, control is passed to 
TMP Mainline IKJEFT02 for a retry. 

If retry has been attempted, control is passed to TMP 
Initialization, IKJEFT01, for re- initialization of 
IKJEFT02, 03, 04, 05, and 25. 



Operation 



1 

Data Areas 
Defined by 



-* 



h 



None 



Data Areas 
Updated by 



None 



Routines Called 

j _ 

Mapping Macros 
Used 
I. 

System Macros 
Used 



-H 



None 



IKJTMPWA IKJIOPL 
IKJCSPL 



DELETE, FREEMAIN, STAE, STAX, TCLEARQ,, TPUT, XCTL 



Exit 



XCTL to IKJEFT01 or XCTL to IKJEFT02 



H 



Registers 
at Exit 



I 

Messages 

I- 

ABEND Codes 



At exit to IKJEFT01, register 1 contains all ones 

X* FFFFFFFF' . At exit to IKJEFT02,, register 1 points 

to a 2- byte field of zeros. 



None 



-H 



None 
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Program Flowcharts 

This section contains program flowcharts that describe the detailed 
logic of major TMP routines. It includes: 

Chart AA-AB — IKJEFT01 
Chart AC-AH — IKJEFT02 
Chart AJ — IKJEFT03 
Chart AK — IKJEFT04 
Chart AL — IKJEFT05 
Chart AM — IKJEFT07 



D 
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CHART AA — IKJEFT01 



, ENTRY FROM 
(LOGON SCHEDULER 
OR IKJEFT07 



* 




ESTABLISH 

INITIAL TABLE 

POINTERS 



CALCULATE 

LENGTH OF TMP 

DYNAMIC WORK 

AREA 



GETMAIN FOR 

WORKAREA IN 

SUBPOOL 1 



ZERO OUT FIRST 

256 BYTES OF 

WORKAREA 



EXTRACT 

STOP/MODIFY 

ECB AND PSCB 

PTRS 



SET UP PTRS AND 

PARM BLOCKS IN 

WORKAREA. 



GETMAIN FOR 

RETRY PARM 

AREA IN 

SUBPOOL 



SET UP NULL 
INPUT COMMAND 



INITIALIZE THE 

TMP RETRY PARM 

AREA 



ISSUE STAE TO 

ESTABLISH TMP 

STAE EXIT 




ISSUE STCOM 

FOR NO 

INTERCOM 



ISSUE STCOM 

WITH INTERCOM 

SPECIFIED 




E4 
u 
H 



Lg> 



44 Terminal Monitor Program (Release 21.6) 



CHART AB — IKJEFT01 



FROM AA/ J 3 
AA/J4 



IT— A2-i 



Mbldl FOR TIME 
II COMMAND 
I I PROCESSOR 



ISSUE ABEND 

WITH TMP USER 

CODE 101 




LOAD THE TIME 

COMMAND 

PROCESSOR 



STORE ZERO PTR 

FOR NO TIME CP 

FOUND 



ISSUE STACK 

TO BUILD 

FIRST STACK 

ELEMENT 



ISSUE ABEND 

WITH TMP USER 

CODE 102 




GETMAIN FOR 
FIRST COMMAND 
IN SUBPOOL 1 



FILL IN CMD 

BUFFER HEADER 

INFORMATION 




D 



MOVE IN FIRST 

CMD FROM INPUT 

PARM FIELD 



SET UP DUMMY 

CBUF POINTER IN 

TMP WORKAREA 



LOAD THE TMP 

STAI EXIT 

ROUTINE 



LOAD THE TMP 

ATTENTION 
EXIT ROUTINE 



ISSUE STAX TO 
ESTABLISH THE 
TMP ATTN EXIT 




ISSUE ABEND 

WITH TMP USER 

CODE 103 
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CHART AC — IKJEFT0 2 



ENTRY FROM A 

IKJEFT01 OR I 

IKJEFT07 J 



ESTABLISH 

INITIAL TABLE 

POINTERS 



FROM AD/H1 
AE/D1 



SCAN INPUT 

FOR VALID 

COMMAND 



FREEMAIN 
INVALID 
COMMAND 
BUFFER 




ISSUE ABEND 

WITH TMP USER 

CODE 206 





FROM: AF/B2 



1 




CALL THE TIME 

COMMAND 

PROCESSOR 



SET UP COMMAND 

NOT FOUND 

MESSAGE 



L 



FREEMAIN THE 

TIME COMMAND 

BUFFER 



L 




FROM: AE/E4 
AF/J1 
AG/B1 
AG/F4 



ISSUE ABEND 

WITH TMP USER 

CODE 207 
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CHART AD — IKJEFT02 



A3 I FR0M: AC / K2 



SET STATUS TO 

START 

SUBTASKS 



D 



POST: STAI 

EXIT - 

CONTINUE 

ABEND 



FROM: AF/H5 




AE/E1 
AG/E2 



Eh 

rNPOST | 



INDICATE 

ATTENTION EXIT 

WAS TAKEN 




PICK UP NEW 

COMMAND FROM 

ATTN EXIT 



INITIALIZE AND 

RESET BITS AND 

POINTERS 



SET STATUS TO 

START 

SUBTASKS 



L 



L 



© 





© 



FROM: AG/D2 
AH /D4 



ON\ 



INDICATE FREE 

COMMAND HAS 

COMPLETED 
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CHART AE — IKJEFT02 



All FR0M: AD/K3 




103 1 FROM: AC/G2 



SET UP INVALID 

COMMAND SYNTAX 

MESSAGE 



FROM: AC/G4 



ISSUE PUTLINE 

TO SEND 

MESSAGE TO 

USER 




ISSUE ABEND 

WITH TMP USER 

CODE 205 
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CHART AF — IKJEFT02 



£ 4 I FROM: AG/C1 



BLDL FROM 
COMMAND 
LIBRARY 




IKJSTACK TO 

FLUSH TOP 

ELEMENT ONLY 





DETACH COMMAND 
PROCESSOR 



RESET STACK 

FLUSH CONTROL 

INDICATORS 




ISSUE TSEVENT 

INDICATING 
TEST STARTED 



INDICATE 

CONTROL PASSED 

TO TEST 



INDICATE 

CONTROL 

RETURNED FROM 

TEST 



ISSUE TSEVENT 
INDICATING 
TEST ENDED 



FREEMAIN THE 

TEST COMMAND 

BUFFER 



SET STATUS TO 

START 

SUBTASKS 



L 
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CHART AG — IKJEFT02 



j ^ j FROM: AF/F1 



STACK: FLUSH 
ALL ELEMENTS 



FROM: AF/D1 



l°j> | FROM: AD/F3 





INDICATE 
ABNORMAL CP END 



DETACH CP 
CURRENTLY 
ATTACHED 



STORE THE NEW 

COMMAND NAME IN 

ECT 



RESET STAI EXIT 
ECB POST BIT 



RESET STACK 

FLUSH CONTROL 

INDICATORS 



i r ■ 


SET SWITCHES IN 
ECT 



INDICATE STAI 
IN CONTROL 




CALL: INFORM 

USER OF ABEND 

CONDITION 




TCLEARQ: 

CLEAR OUT 

INPUT BUFFERS 



Li 



E> 



ISSUE TSEVENT 

INDICATING CP 

STARTED 



L, 
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CHART AH — IKJEFT02 



( ENTRY J 



INVOKE DYN 
ALLOC TO 

RETURN USER 
DATA SETS 




DETACH CP 

WITH STAE 

EXIT INVOKED 



ISSUE TSEVENT 

INDICATING CP 

ENDED 



STORE RETURN 
CODE IN ECT 



D 



RESET SWITCHES 
AND ECB'S 
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CHART A J — IKJEFT03 

IKJEFT03 




( RETURN J 
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CHART AK 



IKJEFT04 




C— A4 v 
ENTRY FROM \ 
TMP/TEST J 



ESTABLISH 
ADDRESSABILITY 



D 



CONVERT CODE 

AND ISSUE 

MESSAGE 



f T* 



RETURN TO 
TMP/TEST 



J> 




J3m 


' 






lJf| , 


r 




MARK 






ISSUE PUTLINE 




UNRECOVERABLE 






FOR ABEND 
MESSAGE 





RETURN TO ABEND) 



r RE ; 

Li 



RETURN TO 
STAIMSG 



) 
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CHART AL — IKJEFT05 
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CHART AM — IKJLFT07 

IKJEFT07 







€UP 2 WORD" 
ETER LIST 



G 



XCTL TO 
IKJEFT01 



J 
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Section 4: Directory 



This chart contains information that will help you find the appropriate program 
description, flowchart, or assembly listing. It correlates information from three 
sources: 

• The source code. 

• The executable load modules. 

• This manual. 



r t i 

| Label | Common Name 
H + 

| IKJEFTOl |TMP 

j | Initial- 

j |ization 


r i 
Load 

Module 

Name 



IKJEFTOl 


r t t 

Assembly | Control | 

Module | Section | 

Name |Name | Description 
+ + 

IKJEFTOl | IKJEFTOl (Builds tables and work 
j | areas, sets up exit 
j | routines. 


~t t 

|Flow-|Dia- 
| chart j gram 

-+ + 

| AA- AB j 2 


|IKJEFT02|TMP 

| | Mainline 


IKJEFT02 


IKJEFTO 2 j IKJEFTO 2 | Gets commands, supervises 
| | execution of TSO command 
j | processors . 


|AC-AG| 3 


|IKJEFT03|TMP ATTN 
| | Exit 


IKJEFT03 


IKJEFT03| IKJEFTO 3 | Handles ATTN request 
j (directed to the TMP. 


|AH | 4 


| IKJEFTO 4 | TMP STAI 
j | Exit 


IKJEFT02 


IKJEFT04 (IKJEFT04 | Intercepts abnormally 
| (terminating command 
| | processors or program 
j | tasks. 


|AJ | 5 


|IKJEFT05|TMP STAE 
| j Exit 


IKJEFT02 


IKJEFTO 5 | IKJEFT05 | Intercepts abnormally 

j | terminating TMP or TEST 
j | command processor. 


|AK | 6 


|IKJEFT06|TMP 

| j Messages 


IKJEFTOl 
IKJEFT02 


IKJEFT06|IKJEFT06|Contains TMP Messages. 




|IKJEFT07|TMP STAE 
| | Retry 
j | Routine 


(IKJEFT02 


| IKJEFT07 | IKJEFT07 | Deletes IKJEFT02, 03 

| |04, 05 and 25. Transfers 

| | | control to IKJEFTOl for 
| | re-initialization. 


|AL | 6 



J. J. ~L X J 
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Section 5: Data Areas 



This section describes the major data areas used by TMP routines, 
including: 

Command Buffer (CBUF) 

Command Processor Parameter List (CPPL) 

Environment Control Table (ECT) 

Protected Step Control Block (PSCB) 

Terminal Attention Exit Element (TAXE) 

Terminal Attention Interrupt Element (TAIE) 

Test Parameter List (TPL) 

TMP Parameter List 

TMP Retry Work Area (TMPWA2) 

TMP Work Area (TMPWORKA) 

User Profile Table (UPT) 

The following information is included for each data area: 

• Size in bytes. 

• Name(s) of the routine (s) that creates it. 

o Name(s) of the routine (s) that use and/or update it. 

• Field names, displacements, size, and contents. 

• Cross-references to method of operation diagrams and flowcharts. 



D 
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COMMAND BUFFER (CBUF) 



Size: 

Constructed by : 
Located in Subpool 1 
Updated by: 
Used by: 
Contents : 



Variable 
IKJEFT01 

IKJEFT02 using PUTGET Service Routine 

IKJEFT02 

Commands, subcommands, and/or operands. 



r t 1 

| | Operation 

| Flowcharts | Diagrams 

h + j 

J AA- AB | 3 

-J X 



j Displacement j Field | Size in| 

|Dec. Hex.JName |Byte | 

j. 

|0 

I 

12 

I 

I* 

I 

L 



Contents 



|CBUFLNG j 2 

I 

2 |CBUFOFF | 2 

I 
U JCBUFDATA | VAR 



| Length of Command Buffer 

I 

| Offset to Data Field 

I 

| Commands, subcommands, and/ or 

j operands . 



COMMAND PROCESSOR PARAMETER LIST (CPPL) 



Size: 

Constructed by: 
Located in Subpool 1 
Updated by: 
Used by: 

Contents : 



16 bytes 
IKJEFT01 

Command Processors 

All command processors except the TEST command 
processor. 

Parameter List 

r t i 

| | Operation 

| Flowcharts | Diagrams 

i. + ^ 

| AA- AB | 3 
.. ._ J J. 



I Displacement I Field | Size in | 
j Dec. Hex.JName (Bytes | 



Contents 



10 

I 
14 



1 12 

L 



|CPPLCBUF | 4 jtCommand Buffer (CBUF) 

I I I 

4 |CPPLUPT I 4 |tUser Profile Table (UPT) 

I II 

8 |CPPLPSCB | 4 | t Protected Step Control Block (PSCB) 

I I I 
C (CPPLECT | 4 | t Environment Control Table (ECT) 
x x j. 
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ENVIRONMENT CONTROL TABLE (ECT) 



Size: 

Constructed by: 
Located in Subpool 1 
Updated by: 
Used by: 

Contents : 



40 bytes 
IKJEFT01 

TSO Command Processors and Service Routines 

TMP and TSO Command Processors and Service 
Routines 

Information about the user's environment in the 
foreground region 



D 





cement 

Hex. 

j 


Field 

Name 

L 




r t 1 

| |Operation| 
| Flowcharts | Diagrams j 
t + _ H 

| AA | 2 | 
L I 1 


r 

|Displa 
J Dec . 
i 


" T 1 

|Size in 
| Bytes 

-4- 4 


1 

Contents | 

L J 


|0 


1 
2 


r 
ECTRTCF 


t 1 
I 1 


r 1 

ABEND Flags. Bit settings , as | 

follows: j 


|0.0 


0.0 






Bit Meaning when set | 

Command processor abnormally | 

terminated. | 

1-7 Reserved (0) . | 


11 


1 


ECTRTCD 


1 3 


Return code from ABEND j 


!^ 


4 


ECTIOWA 


1 4 


tl/O Service Routine List (IOSRL). | 


|8 


8 


ECTMSGF 


1 1 


Message Flags. Bit settings, as j 
follows: j 


| 8. 


8.0 






Bit Meaning when set | 
Delete second-level messages. | 

1-7 Reserved (0) . | 


|9 


9 


ECTSMSG 


1 3 


t Second level message chain, or zero j 
if no messages are chained. j 


|12 


C 


ECTPCMD 


1 8 


Command Name | 


| 20 


14 


ECTSCMD 


1 8 


Subcommand Name j 


| 28 


1C 


ECTSWS 


1 ^ 


ECT Switches. Bit settings, as j 
follows : j 


|20.0 


ICO 


ECTNOPD 




Bit Meaninq When Set | 

No parameters exist in command | 

buffer . j 


|28.1 


1C. 1 






1 Reserved (0) . j 



(Continued) 
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Displacement 
Dec, Hex. 


[Field 

L 


|Size 

| Bytes 
i 


in| 


Contents 


28-2 


i 
1C.2 


r 

| ECTATRM 


t 


T 

1 2 


Command processor being 
terminated by the TMP using a 
DETACH macro instruction with a 
STAE operand. 


28.3 


1C 


ECTLOGF 




1 3 


LOGON or LOGOFF command processor 
has requested re -log on or logoff. 


28.4 


1C.U 


ECTNMAL 




1 ** 


No user messages at logon. 


28.5 


1C.5 


ECTNNOT 




| 5 


No system messages at logon. 


28.6 


1C.6 






| 6-7 


Reserved (0) . 


29 


ID 


ECTDDNUM 


1 3 


| Counter used by dynamic allocation SVC 
| routines when assigning temporary 
| DDNAMEs . 


32 


20 


ECTUSER 


1 ^ 


| Reserved for installation. 


36 


24 




1 4 


| Reserved (0). 



L J. X X . J 
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PROTECTED STEP CONTROL 

Size: 

Located in Subpool 0. 

Created by: 

Referenced by: 

Contents: 



BLOCK (PSCB) 
72 Bytes 

LOG ON/ LOGOFF Scheduler. 

TSO Command Processors 

Information about a terminal user's job 

r t 1 

| | Operation 

| Flowcharts | Diagrams 
j. + 

| AA | 2 

JL J. 




r 

| Displac 

|Dec. 
i 


1 

ement 

Hex. 
j 


r 1 

Field 

Name 

U J 


r 1 

Size in 
Bytes 

L J 


Contents 

L 


r 

|0 


1 


r 1 
PSCB USER 


r 1 
7 


r 

User identification (padded right 
blanks) - 


with 


|7 


7 


PSCBUSRL 


1 


Length of User identification. 




1® 


8 


PSCBGPNM 


8 


Group name initialized by LOGON. 




|16 


10 


PSCBATRI 


1 


User authorization flags. 








PSCBCTRL 
PSCBACCT 
PSCBJCL 




Bit Meaninq when set 

Terminal user authorized to 
OPERATOR commands. 

1 Terminal user authorized to 
ACCOUNT commands. 

2 Terminal user authorized to 
SUBMIT, CANCEL, STATUS , and 
OUTPUT commands. 

3-15 Reserved (0) . 


use 
use 
use 


|17 


11 




1 1 


Reserved for IBM use (0). 




|18 


12 


PSCBATR2 


1 


Installation attribute flags. 




|19 


13 




1 1 


Reserved for installation use (0). 




|20 


14 


PSCBCPU 


1 4 


Cumulative CPU time used during 
I session. 




| 24 


18 


PSCBSWP 


4 


| Cumulative time resident in the 
t region. 




| 28 


1C 


PSCBLTIM 


1 ** 


Actual Logon time of day. 




|32 


20 


iPSCBTCPU 


1 4 


Total CPU time used in this accounting 
period, excluding this session. 


| 36 


24 


PSCBTSWP 


i 8 


| Total time user job has been resident 
| in region during this accounting 
period, excluding this session. 



(Continued) 
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1 1 

| Displacement 
[Dec- Hex. 
i 


r 

Field 



PSCBTCON 


~T 

| Size 
| Bytes 

-+ 

1 8 


T 

in| Contents 

„ + 

|The total "connect" time for the user 


1 

|40 


28 










| during this accounting period, 
| excluding the current session. 










|Note: All times are in 26.04166 










j microsecond timer units. 


|44 


2C 


PSCBTCOl 


1 4 


| Second word of PSCBTCON 


| 48 


30 


PSCBRLGB 


1 4 


| t Relogon buffer. 


| 52 


34 


PSCBUPT 


1 4 


| t User Profile Table. 


| 56 


38 


PSCBUPTL 


1 2 


| Length of UPT. 


| 58 


3A 




1 2 


| Reserved for IBM r (0). 


| 60 


3C 


PSCBRSZ 


1 4 


| Region size requested in 2K units. 


| 64 


40 


PSCBU 


1 8 


| Reserved for installation, (0). 
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TERMINAL ATTENTION EXIT 

Size: 

Constructed by: 

Located in Subpool 1 

Updated by: 

Used by: 

Contents: 



ELEMENT (TAXE) 
144 bytes. 
IKJEFT01 using the STAX macro instructions. 

STAX service routine 

Region Control Task (RCT) 

An Interrupt Request Block (IRB), an Interrupt 
Queue Element (IQE) r and a work area used to 
schedule the Attention Exit when an Attention 
Interrupt occurs. 



D 











r t t 

| | Operation | 
(Flowcharts | Diagrams | 

L L J 




r r 1 

1 [AH 1 4 j 

-L JL J 


1 

| Displacement 
JDec. Hex. 

L J 


r 

Field 
Name 


r n 
Size in 
Bytes 

i 


r ■"■ ~i 

Contents | 

j 


r 

|0 







TAXEIRB 


1 

96 


1 

IRB j 


| 96 


60 


TAXENIQE 


4 


tNext available IQE | 


|100 


64 


TIQELNK 


4 


tNext IQE | 


|104 


68 


TIQEPARM 


4 


t Parameter to Asynchronous Exit j 
Routine j 


|108 


6C 


TIQEIRB 


1 ** 


tIRB to schedule | 


|112 


70 


TAXETCB 


4 


tTCB | 


|116 


74 


TAXELNK 


4 


tNext TAXE | 


|120 


78 


TAXEXPSW 


4 


Left half of PSW for Attention Exit | 
Routine j 


|124 


7C 


TAXEEXIT 


4 


tAttention Exit Routine j 


|128 


80 | 


TAXESTAT 


1 


TAXE Status Flags. Bit settings , as j 
follows : j 

Bit Meaninq When Set | 

Problem key. | 

1 Problem mode. j 

2 Requested TAXE. | 
3-7 Reserved (0). j 


|129 


81 


TAXEPARM 


3 


tSTAX Parameter List j 


|132 


84 


TAXETAIE 


<* 1 


tTAIE | 


|136 


88 


TAXEIBUF 


** 1 


tAttention Buffer j 


|140 


8C 


TAXEUSER 


1 1 


tUser Parameter Area j 
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TERMINAL ATTENTION INTERRUPT ELEMENT (TAIE) 



Size: 

Constructed by: 

Located in Subpool 1. 

Updated by: 

Used by: 

Contents: 



72 bytes. 

IKJEFT01 using the STAX macro instruction. 

Region Control Task (RCT) 

IKJEFT03 

Interrupt address and contents of general 
registers 0-15 when interrupt occurred. 



Displacement 
Dec. Hex. 



TAIEMSGL I 2 j Length in bytes of a message placed in 

an input buffer specified by the STAX 
macro instruction. If no input buffer 
is specified, the field is 0. 



Field 

Name 



T T 

Size in 
Bytes 



TAIETGET 



TAIEIAD 



TAIERSAV 



1 
4 



64 



r t 1 

| | Operation 
| Flowcharts | Diagrams 
y + 

| AH | 4 
-J. ± _ ., 



Contents 



Return code from TGET macro 
instruction issued by Attention 
prologue routine in the Region Control 
Task (RCT) and checked by Attention 
Exit Routine IKJEFT03. 

Reserved (0) . 

Interrupt address. Right half of the 
interrupted PSW. Address at which TMP 
Mainline IKJEFT02 (or a previous 
Attention exit routine) was 
interrupted. 

Contents of general registers 0-15 of 
interrupted programs. 
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TEST PARAMETER LIST (TPL) 



Size 

Constructed by: 
Located in Subpool 1. 
Updated by: 
Used by: 
Contents : 



60 Bytes 
IKJEFT01 

TEST command processor 

TEST command processor 

Addresses of data areas used by TEST command 
processor 



D 











r t 1 

| | Operation | 
| Flowcharts | Diagrams | 

| L J 




r t t 

JAA-AB | 1,5 | 

, L L 1 


Displacement 
Dec- Hex, 


r 

Field 
Name 


r 1 

Size in 
Bytes 


.*. — .j 

Contents | 




1 






j 





1 





TPLCBUF 




1 ** 


-f 

t Command Buffer | 


4 


4 


TPLUPT 


1 4 


tUPT | 


8 


8 


TPLPSCB 


1 4 


tPSCB | 


12 


C 


TPLECT 


1 4 


tECT | 


16 


10 


TPLTBUF 


1 4 


tTEST Buffer | 


20 


14 


TPLCTCB 


1 ^ 


t Attached command processor's TCB j 


24 


18 


TPLSTAI 


1 ** 


tTMP STAI Exit Routine | 


28 


1C 


TPLSPLS 


1 4 


tSTAI Parameter List | 


32 


20 


TPLNECE 


I ^ 


tECB for an abnormally terminating | 
command processor j 


36 


24 


TPLNTCB 


4 


tTCB for an abnormally terminating j 
command processor j 


40 


28 


TPLMECB 


1 ** 


t STOP/MODIFY ECB | 


44 


2C 


TPLCECB 


** 


t Attached command processor's ECB j 


48 


30 


TPLIECB 


i ** 


tTMP STAI ECB | 


52 


34 


TPLAECB 


4 


tTMP Attention ECB | 


56 


38 


RESV 


4 


Reserved (0). j 
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TMP PARAMETER LIST 
Size: 
Constructed by 

Located in Subpool 1- 
Updated by: 
Used by: 
Contents : 



8 bytes 

LOGON/LOGOFF Scheduler or TMP STAE Retry 
Routine IKJEFT07 



IKJEFT07 

IKJEFT01 

Parameter list for TMP Initialization Routine 
IKJEFT01 



r t 1 

| | Operation 

| Flowcharts | Diagrams 



*- 



AA 



H 



| Displacement | Field 

| Dec. Hex. | 

, + 

|0 |FSTCMD 

I I 

I I 

| 4 ^ | RETRYWAP 

I I 

L -L 



T T 

Size in 
Bytes 



Contents 



t First Command or X'FFFFFFFF' if a 
STAE Retry is in process. 

tTMP Retry Work Area (if a STAE Retry 
is in process) . 
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TMP RETRY WORK AREA (TMPWA2) 



Size: 

Constructed by: 

Located in Subpool 1. 

Updated by: 

Used by: 

Contents 



16 bytes 
IKJEFT01 

IKJEFT05, IKJEFT07 

IKJEFT01 

Information to be used when re-initializing the 
TMP during STAE Retry processing 



D 



r t 1 

| | Operation 

| Flowcharts j Diagrams 

k + H 

| AA | 2 
.J J. 



j. 4 



Displacement 
Dec. Hex. 


Field 

Name 


| Size in 
| Bytes 


i Contents 




j 


L 


4. ^ 







1 



r 
TMPWAPTR 


T T 

| 4 |tTMP Work Area. 


4 


a 


jSAVAPTR 


I 4 


tOriginal Register Save Area. 


8 


8 


RETRYFP 


I 4 


t Retry Flags. 


12 


c 


RETRYFLG 


I 1 


TMP Retry Flags. Bit settings , as 
follows : 


12.0 


CO 


TMPRINIT 




Bit Meaninq when set 

Reinitialization is in progress. 


12.1 


C.l 


TMPRTRY 




1 Retry is in progress. 
2-7 Reserved (0). 


13 


D 




1 3 


j Reserved (0). 



L ± X X , 



Section 5: Data Areas 67 



TMP WORK AREA (TMPWORKA) 
Size 

Constructed by: 
Located in subpool 1. 
Updated by: 

Used by: 

Contents : 



462 Bytes 
IKJEFT01 



IKJEFT02, IKJEFT03, IKJEFT04 f IKJEFT05, 
IKJEFT07 

IKJEFT02, IKJEFT03, IKJEFT04, IKJEFT05, 
IKJEFT07 

Control information and addresses of data areas 
used by the Terminal Monitor Program. 



r t 1 

| | Operation 
| Flowcharts | Diagrams 
j. + .J 













| AA | 2 

L L 


r — ir 

| Displacement | Field 
J Dec . Hex . | Name 
U J- 


_ T 

|Size in 
| Bytes 


1 ' L 

| Contents 

L 


r 

|0 







|TPL 


T 

| 60 


r 

|Test Parameter List. 


| 60 




3C 


[TMPNECB 


1 * 


| tTMP STAI ECB. 


| 64 




40 


| TMPCECB 


1 ** 


| tAttached command processor* s ECB. 


| 68 




44 


| TMPIECB 


1 ** 


|ECB for STAI Post. 


| 72 




48 


| TMPAECB 


1 * 


|ECB for Attention Post. 


1 76 




4C 


|TMPCMDWT 


1 ^ 


| tCommand passed from TMP Attention 
| Exit Routine. 


| 80 




50 


| TMPTIME 


1 4 


| tTime routine 


| 84 




54 


| TMPSWS 


1 4 


|TMP internal switches. Bit settings 
| as follows : 


| 84. 
1 84. 
[84. 
| 84. 
|84. 


Q 
1 
2 
3 
4 


54. 
54. 
54. 
54. 
54. 


0|TMPTEST 
1|TMPCMDW 
2|TMPNFCMD 
3|TMPACTRL 
4 | TMPSCTRL 




I Bit Meaninq when on 

|0 TEST program in control. 

|1 Command waiting. 

|2 First command is processed. 

|3" TMP attention exit is in control. 

|4 TMP STAI exit is in control. 



(Continued) 
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Displacement 
Dec. Hex. 


| Field 

1 


Size in 
Bytes 

u 


Contents 




88 


58 


r — 
MULTLST 


1 1 

40 




Multilevel Messages List. 


128 


80 


AMSGLIST 


12 


ATTN Message List. 


mo 


8C 


ASRPARM 


20 


ATTN Service Routine Parameter Area. 


160 


AO 


TMP ZEROS 


4 


Dummy Command Buffer. 


164 


A4 


RCODE 


4 


Return Code Save Area. 


168 


A8 


ARCODE 


4 


tATTN Return Code Save Area. 


172 


AC 


SCANFLG 


4 


Scan flags. 


176 


BO 


ASCANFLG 


4 


! ATTN Sea nf lags. 


180 


B4 


ATTCHPTR 


4 


tATTACH parameter list. 


184 


B8 


CPPLPTR 


4 


tCommand Processor Parameter List 
(CPPL). 


188 


BC 


DYNAPPTR 


4 


t Dynamic allocation. 


192 


CO 


GTPBPTR 


4 


tGETLINE parameter list. 


196 


C4 


PGPBPTR 


4 


tPUTGET parameter list. 


200 


C8 


PTPBPTR 


4 


tPUTLINE parameter list. 


204 


CC 


READYPTR 


4 


tTMP MODE message. 


208 


DO 


SCANAP 


4 


tSCAN answer area. 


212 


D4 


ASCANAP 


4 


tATTN SCAN answer area. 


216 


D8 


SRPLPTR 


4 


t Service Routine Parameter List. 


220 


DC 


ASRPLPTR 


4 


tATTN Service Routine Parameter List. 


224 


EO 


STAXPTR 


** 1 


tSTAX Parameter List. 


228 


E4 


STPBPTR 


4 


t STACK Parameter List. 


232 


E8 


WARPTR 


** 


tTMP retry work area. 


236 


EC 


BLDLLIST 


62 | 


BLDL list. 


298 


12A 




2 


Padding to get to word boundary. 


300 


12C 




20 | 


Reserved. 



H 



D 



l J.- 



J. jl J 
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USER PROFILE TABLE (UPT) 



Sizes 

Located in Subpool 
Created by: 
Updated by: 
Referenced by: 
Contents : 



16 Bytes 



LOGON/LOGOFF Scheduler 

PROFILE command processor 

IKJEFT45, IKJEFT56 

Information about terminal user 



r ■ t 1 

| Flowcharts | Operation 

| | Diagrams 











| AA | 2 

,.. L., , . L 


|Dis 

|Dec 
i 


™T " 

placement] Field 
Hex . | Name 
i 


" T 

|Size 
| Bytes 


T 

in| 

J. 


Contents 


|0 


T 

| 


T 
1 2 


T 

| Res erved ( ) . 


|2 


2 |UPTUSER 


| 10 


| Reserved for installation use. 


|12 


C | UPTSWS 


1 1 


|User 
jsett 

|Bit 
I'O 


Environment Switches. Bit 
ings , as follows : 

Meaninq when set 
Reserved (0) . 




| UPTNPRM 




|1 


Prompt; if zero, no prompt. 




|UPTMID 




|2 


Message identifiers; if zero, 
message identifiers will be 
removed. 




|UPTNCOM 




|3 


No user communication using the 
SEND command; if zero, user 
communication is allowed. 




|UPTPAUS 




I 1 * 


PAUSE was specified; if zero, 
NOPAUSE was specified. 




| UPTALD 




|5 
| 6-7 


Attention is a line delete 
character; if zero, attention is 
not a line delete character. 

Reserved (0) . 


|13 


D | UPTCDEL 


1 1 


(Character delete character. 


|14 


E |UPTLDEL 


1 1 


|Line 


delete character. 


|15 


F | 


1 1 


| Reserved (0). 



L J. X ± 
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Section 6: Diagnostic Aids 



This section contains the following charts: 

• Messages (Figure 8) — a list of messages issued by TMP routines. 

• Register Usage (Figure 9) — a summary of the use of general 
registers 0-15. 

• Return Codes (Figure 10) — a summary of return codes and their 
meanings. Unless otherwise specified, return codes are contained in 
register 15. 

Other useful diagnostic information is contained in the TMP Work Area 
(TMPWORKA) and TMP Retry Work Area (TMPWA2). These data areas are 
described in Section 5. 



D 



| Message ID 



Message 



Issued by 



|IKJ56621I 



INVALID COMMAND SYNTAX 



| IKJEFT02,IKJEFT03, 



|IKJ56622I 
|. 



COMMAND NOT FOUND 



IIKJEFT02 



READY 



t 

JIKJ56641I 



IKJEFT02,IKJEFT03, 



~i 



command ENDED DUE TO ERROR+ 



JIKJ5664I 



System User ABEND CODE xxxx 



|IKJEFT02/TEST 
_ + 

IIKJEFT02/TEST 



-H 



IKJ56600I 



COMMAND SYSTEM ERROR 



I 

JIKJ56601I 



|IKJEFT05 



COMMAND SYSTEM RESTARTING DUE |IKJEFT05 
TO CRITICAL ERROR I 



I 

|IKJ56602I 



COMMAND SYSTEM RESTARTING DUE 
TO ERROR 



"+ 

IIKJEFT05 



Figure 8. Messages: Terminal Monitor Program 
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to 



B 
0) 







o 
h 

h 
O 

h 



H 

W 
to 





IKJEFT01 


IKJEFT02 


IKJEFT03 


IKJEFT04 


IKJEFT05 


IKJEFT07 


Register 


Name 


Use 


Name 


Use 


Name 


Use 


Name 


Use 


Name 


Use 


Name 


Use 





R0 


Work Register 


R0 


Work Register 


R0 


Work Register 


R0 


Entry Code © 


R0 


Entry Code © 


R0 


Work Register 


1 


Rl 


A TMP 

' parameter list 


Rl 


A Command 
1 buffer 


Rl 


A Attention 
l Exit 


Rl 


^ Work area or 
ABEND code© 


Rl 


f Work area or 
ABEND code© 


Rl 


A STAE parameter 
1 list 


2 


R2 


Work Register 


R2 


Work Register 


R2 


Work Register 


R2 


A STAI © 
1 parameter list 


R2 


A STAE © 
1 parameter list 


R2 


Work Register 


3 


R3 


Work Register 


R3 


Work Register 


R3 


Work Register 


R3 


Work Register 


R3 


Work Register 


R3 


Work Register 


4 


R4 


Work Register 


R4 


Work Register 


— 


Work Register 


— 


Work Register 


— 


Work Register 


— 


Work Register 


5 


R5 


Work Register 


R5 


Work Register 


~ 


Work Register 


— 


Work Register 




Work Register 


— 


Work Register 


6 


R6 


Work Register 


R6 


Work Register 


— 
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Routine 


Return Code 
Hexadecimal 


Meaning 


IKJEFT01 


101 


BLDL Error. 






102 


DAIR Error. 






103 


PUTLINE Error. 






104 


STACK Error. 






105 


STAX Error. 






Note: 


These are error exit codes used by IKJEFT01 when 


going to IKJEFT05. 


IKJEFT02 


201 


BLDL Error. 






202 


DAIR Error. 






203 


PUTLINE Error. 






204 


STACK Error. 






205 


STAX Error. 






Note: 


These are error exit codes used by IKJEFT02 when 


going to IKJEFT05. 


IKJEFT03 


00 


No change is made in program flow. 






A next 

■ instruction 


For change in program flow. 












to be 








executed. 






IKJEFT05 


00 


Retry is to be attempted. 






04 


Retry is not to be attempted. 




IKJEFT06 


None 






IKJEFT07 


None 







D 



Figure 10. Return Codes: Terminal Monitor Program 
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Section 1: Introduction 



The Terminal I/O Service Routines handle terminal input/output 
operations required by the LOGON/LOGOFF Scheduler, the Terminal Monitor 
Program, the TSO command processors, and other TSO problem programs- 
There are four Terminal I/O Service Routines: 

• STACK — which determines the current source of input: (1) from the 
terminal, or (2) from an in-storage list. 

o GETLINE — which obtains a line of input from the terminal or from 
the current source of input. 

• PUTLINE — which sends line(s) of data to the terminal, formats 
messages and sends them to the terminal. 

• PUTGET — which sends a message to the terminal and obtains a line 
of input from the current source of input. 

The Terminal I/O Service Routines can be invoked directly (by using 
the LINK or LOAD/ CALL macro instructions) or they can be invoked using 
system macro instructions: STACK, GETLINE, PUTLINE, and PUTGET. 

There are two forms of these macro instructions: the list form and 
the execute form. The list form generates most of the control blocks 
and parameter lists required, while the execute form generates 
executable code that includes a LINK SVC instruction. The LINK SVC 
results in a branch-and- link- register instruction to the appropriate 
entry point. 

For further information about the Terminal I/O Macro Instructions, 
refer to IBM System/360 Operating System: Time Sharing Option: Guide 
to Writing a Terminal Monitor Program or a Command Processor , GC28-6764. 

As supplied with TSO„ the terminal I/O service routines reside in 
SYSl.LINKLIB and will execute in the user's foreground region with the 
protection key assigned to that region. The installation may choose to 
make the terminal I/O service routines resident in the TSO Link Pack 
Area (TSLPA) in the region assigned to the Time Sharing Control Task 
(TSCT) . 



E 
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Section 2: Method of Operation 



This section describes the method of operation of the Terminal I/O 
Service Routines. It includes six method operations diagrams: 

• Method of Operation Diagram 7 (foldout): Terminal I/O Service 
Routines, Overview — which shows how the Terminal I/O Service 
Routines are used by the Terminal Monitor Program, TSO Command 
Processors, and other TSO problem programs. 

• Method of Operation Diagram 8 (foldout): STACK Service Routine — 
which shows how the STACK Service Routine determines the current 
source of input (1) from the terminal, or (2) from an in-storage 
list. 

• Method of Operation Diagram 9 (foldout) : GETLINE Service Routine — 
which shows how the GETLINE Service Routine obtains a line of input 
from the terminal or from the current source of input. 

• Method of Operation Diagram 10 (foldout) : PUTLINE Service Routine 
— which shows how the PUTLINE Service Routine sends line(s) of data 
to the terminal, formats messages, and sends messages to the 
terminal . 

• Method of Operation Diagram 11 (foldout): PUTGET Service Routine 

(Command Mode) — which shows how the PUTGET Service Routine obtains 
commands from the current source of input. 

• Method of Operation Diagram 12 (foldout): PUTGET Service Routine 
(Prompting Mode) — which shows how the PUTGET Service Routine 
obtains operands and data from the terminal in response to a 
prompting message. 

Each method of operation diagram includes a cross-reference table to 
help you find the appropriate program description,, flowchart, and 
assembly listing. 



Overview 

Method of Operation Diagram 7 (foldout) shows how the Terminal I/O 
Service Routines are used by the Terminal Monitor Program, the TSO 
command processors, and other TSO problem programs. 

Briefly, here is what happens: 

• The Terminal Monitor Program uses STACK to set up the first (bottom) 
element on the Input Stack to define the terminal as the current 
source of input. Later, the TMP uses PUTGET to obtain commands from 
the terminal and uses PUTLINE to write informational messages to the 
terminal. 

• TSO command processors may use STACK to set up other elements on the 
Input Stack to define either the terminal or an in-storage list as 
the current source of input. TSO command processors use PUTGET to 
obtain subcommands, GETLINE to obtain data, and PUTLINE to send data 
or informational messages to the terminal. 
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• When a TSO command processor or problem program begins to terminate 
abnormally , the command processor uses STACK to delete all elements 
from the Input Stack (except the bottom element) - 

• Other TSO problem programs, including Parse and other TSO service 
routines, may use any or all of the Terminal I/O Service Routines. 

INPUT STACK 

The Input Stack is a variable -si zed control block that contains one or 
more elements , each of which defines a source of input: 

• From the terminal, or 

• From an in-storage list- 
There are two types of in-storage lists: a source list and a 

procedure list. A source list contains source language statements or 
data. A procedure list is a list of TSO commands. 

I/O SERVICE ROUTINE LIST 

The I/O Service Routine List (IOSRL) contains the address of the bottom 
element (a terminal element) and the top element (a terminal element or 
a storage element). The top element defines the current source of 
input, while the bottom element always describes the terminal as a 
source of input. 

The GETLINE and PUTGET service routines refer to the IOSRL to 
determine the current source of input, but they cannot update it. Only 
STACK can update the IOSRL and the Input Stack. 

STACK Service Routine 

Method of Operation Diagram 8 (foldout) shows how the STACK Service 
Routine creates the I/O Service Routine List (IOSRL) and Input Stack 
(INSTACK) and adds or deletes elements to or from the Input Stack. 

ENTRY TO STACK 

STACK is entered by a branch and link to entry point IKJSTCK in load 
module IKJPTGT. The calling program may invoke STACK directly, by 
issuing a LINK macro instruct ion, or indirectly, by issuing a STACK 
macro instruction which results in a LINK SVC. 

On entry to STACK , register 1 points to the I/O Parameter List 
(IOPL) which contains the address of the Stack Parameter Block (STPB). 

MANAGING THE INPUT STACK 

STACK performs one of the following functions: 

• Adds an element to the top of the stack. 

• Deletes an element from the top of the stack. 

• Deletes the current procedure element from the stack. 

• Deletes all elements from the stack except the bottom element. 

Before adding an element to the stack, STACK checks to see if storage 
is available and, if necessary, obtains storage for a new Input Stack 
that is 32 bytes larger than the current one. 
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If a procedure element is to be deleted, but the top element is not a 
procedure element, STACK deletes all elements from the top of the stack 
down to and including the first procedure element until it reaches the 
bottom element. 

STACK updates the IOSRL to point to the top and bottom elements or 
the Input Stack before returning control to the calling program. 

RETURN TO CALLING PROGRAM 

STACK issues a RETURN macro instruction to return control to the calling 
program. At exit from STACK, register 15 contains one of the following 
return codes : 

i r 1 

| Code | Meaning | 

t + „_| 

| X'OO" I Normal. Element(s) added to or deleted from the Input Stack. | 
| X'04' | Error. Invalid input to STACK. Either an invalid operation | 
| | code or an invalid record in a in-storage list. j 

L -L I 

GETLINE Service Routine 

Method of Operation Diagram 9 (foldout) shows how the GETLINE service 
routine obtains lines of input from the terminal or from the current 
source of input which may be the terminal or an in-storage list. 

ENTRY TO GETLINE 

GETLINE is entered by a branch and link to entry point IKJEGTL in load 
module IKJPTGT. The calling program may invoke GETLINE directly, by 
issuing a LINK macro instruction, or indirectly, by issuing a GETLINE 
macro instruction which results in a LINK SVC. 

On entry to GETLINE, register 1 points to the I/O Parameter List 
(IOPL) which contains the address of the GETLINE Parameter Block (GTPB) . 



OBTAINING LINES FROM THE TERMINAL 

If terminal is specified, or if the terminal is the current source of 
input, GETLINE obtains a physical line or a logical line of input from 
the terminal using the TGET macro instruction. A physical line is a 
line of input entered from the terminal. A logical line may consist of 
one or more physical lines, where '-* is the continuation character. 

OBTAINING LINES FROM A LIST 

If the current source of input is an in-storage list, GETLINE obtains 
the next record and calls STACK to update the I/O Service Routine List 
(IOSRL) . If end-of-data is reached, GETLINE calls STACK to delete the 
current element from the Input Stack. 

RETURN TO CALLING PROGRAM 

GETLINE returns control to the calling program by a branch on register 
14. At exit from GETLINE, register 15 contains one of the following 
return codes : 
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r r- 

| Code | 



Meaning 



X'OO' | Normal. Line of input obtained from the terminal- 
X'O^ 1 | Normal . Line of input obtained from an in-storage list, 
X'08' | Error. Communications ECB's post bit was on or user was 

| disconnected. 
X'0C f | Error. NOWAIT was specified as a TGET option and no buffer 

| was available to TGET. 
X f 10' | Normal. EOD returned from an in-storage list. 
X f 14' | Error. Invalid parameters to GETLINE or TGET. 
X f 18" |Error. A conditional GETMAIN was executed and no space was 

I available. 



PUTLINE Service Routine 



Method of Operation Diagram 10 (foldout) shows how the PUTLINE service 
routine sends lines of data to the terminal, formats messages, and sends 
messages to the terminal. 



ENTRY TO PUTLINE 

PUTLINE is entered by a branch and link to entry point IKJPUTL in load 
module IKJPTGT. The calling program may invoke PUTLINE directly, by 
issuing a LINK macro instruction, or indirectly, by issuing a PU'±tlNE 
macro instruction which results in a LINK SVC. 

On entry to PUTLINE, register 1 points to the I/O Parameter List 
(IOPL) which contains the address of the PUTLINE Parameter Block (PTPB) 



SENDING MESSAGES TO THE TERMINAL 

PUTLINE formats messages and sends them to the terminal using the TPUT 
macro instruction. Messages are formatted by joining message segments, 
if necessary, and stripping off message identifiers, if specified. (If 
"format only" was specified, PUTLINE formats the message but does not 
send it to the terminal.) Second-level messages, if supplied, are 
chained to the ECTSMSG field of the Environment Control Table (ECT) 
where they are available to the PUTGET service routine when the terminal 
user enters a question mark to request additional information. 



SENDING DATA TO THE TERMINAL 

PUTLINE sends data to the terminal (as received from the calling 
program) using the TPUT macro instruction. Each line of chained, 
multi-lined data is sent to the terminal until end-of -chain is reached. 



RETURN TO CALLING PROGRAM 

PUTLINE returns control to the calling program by a branch on register 
14. At exit from PUTLINE, register 15 contains one of the following 
return codes : 



B 
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I Code j Meaning 

, + 

X'OO' I Normal. One of the following has occurred: 

• Line(s) of output were sent to the terminal. 

• Message (s) were sent to the terminal and second-level 
messages were chained. 

• Text was inserted (format only was specified). 
X f 04 f | Error. Communication ECB's post bit was on. 
X 1 *^* | Error. NOWAIT was specified as a TPUT option and no buffer 

| was returned by TPUT. 
X'OC* | Error. Invalid parameters were sent to PUTLINE. 
X^O' (Error. A conditional GETMAIN was executed and no space was 

I available. 



PUTGET Service Routine 



The PUTGET service routine has two very different uses: 

• Obtaining commands (Command Mode) . 

• Obtaining operands and data (Prompting Mode). 



ENTRY TO PUTGET 

PUTGET is entered by a branch and link to entry point IKJPTGT in load 
module IKJPTGT. The calling program may invoke PUTGET directly, by 
issuing a LINK macro instruction, or indirectly, by issuing a PUTGET 
macro instruction which results in a LINK SVC. 

On entry to PUTGET, register 1 points to the I/O Parameter List 
(IOPL) which contains the address of the PUTGET Parameter Block (PGPB) . 

OBTAINING COMMANDS 

Method of Operation Diagram 11 (foldout) shows how the PUTGET service 
routine obtains commands from the current source of input. 

If the current source of input is the terminal, PUTGET sends a mode 
message to the terminal and obtains a line of input from the terminal. 
Examples of mode messages are: 



Mode Message 

READY 

EDIT 

TEST 



Routine 

Terminal Monitor Program 
EDIT Command Processor 
TEST Command Processor 



If the current source of input is an in-storage list, PUTGET obtains a 
line of input from the in-storage list. When end-of-data is reached, 
PUTGET invokes STACK to delete the current procedure element. If the 
line begins with a question mark, PUTGET sends a second-level message to 
the terminal and obtains another line of input. (This process can 
continue until all second-level messages have been sent to the 
terminal.) 



OBTAINING OPERANDS AND DATA 

Method of Operation Diagram 12 (foldout) shows how the PUTGET service 
routine obtains operands and data from the terminal in response to a 
prompting message. 
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If the current input source is an in- storage list, or if the terminal 
user has specified "NO PROMPT" as one of his PUTGET options , an error 
return code is returned to the calling routine. 



If the current source of input is the terminal, PUTGET sends a 
prompting message to the terminal and obtains a line of input from 
terminal. Examples of prompting messages are: 



Prompting Message 
ENTER USERID - 
REENTER - 



Routine 

LOGON/LOGOFF Scheduler 

Parse service routine 



If the line begins with a question mark, PUTGET sends a second-level 
prompting message to the terminal (if one is available) and obtains 
another line of input* (This process can continue until all 
second-level messages have been sent to the terminal.) 

RETURN TO CALLING PROGRAM 

PUTGET returns control to the calling probram by a branch on register 
14. At exit from PUTGET, register 15 contains one of the following 
return codes : 




j Code j 



Meaning 



H 



X' 


00" 


X" 


04' 


x- 


08 f 


x f 


0C 



X'lO" 

X , 14 f 

X'18 f 
X f lC* 



| Normal . A line was sent to the terminal and a line was 

| returned from the terminal. 

(Normal. A line was sent to the terminal and a line was 

| returned from an in-storage list. 

| Error. The Communications ECB's post bit was on. 

| Error. If in command mode — NOPAUSE was specified and input 

| was from an in-storage list. If in prompting mode — 

| NOPROMPT was specified or input was from an in-storage 

| procedure. 

| Error. NOWAIT was specified as a TPUT option and no TIOC 

| buf f er was available to TPUT. 

| Error. NOWAIT was specified as a TGET option and no buffer 

| was returned by TGET. 

| Error. Invalid parameters were sent to PUTGET. 

| Error. A conditional GETMAIN was executed and no space was 

| available. 
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IKJPTGT 



Load Module Names 



IKJPTGT 



Terminal I/O 
Service Routines 


IKJEFT30 


I STACK Routine 


IKJEFT35 


B I/O Service 
■ Routine 
H Messages 




IKJEFT40 


| PUTLINE 
I Routine 




IKJEFT45 


I PUTGET 
■ Routine 




IKJEFT52 


I CHAINOUT 
I Routine 




IKJEFT53 


1 UNC 

1 Subr 


:hain 

outine 




IKJEFT54 


I TEXTIN 
1 Subroutine 




IKJEFT55 


I GETLINE 
1 Routine 




IK.JEFT56 


I TER 
B Subr 


MOUT 
outine 







(IKJSTCK)* 



(IKJPUTL)* 



(IKJPTGT)* 



(IKJGETL)* 



' Entry point name. 



Normal Residence 



SYS 1. LINK LIB 



Approximate Sizes 
6.5K bytes 



Figure 11. Program Hierarchy: Terminal I/O Service Routines 
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Section 3: Program Organization 



This section describes the program organization of the Terminal I/O 
Service Routines: STACK, GETLINE, PUTLINE, and PUTGET. 

This section contains three types of information: 

• Program Hierarchy Chart (Figure 11) — which shows how routines are 
organized in terms of load modules, assembly modules, and control 
sections . 

• Program Descriptions — which describe the overall logic of each 
assembly module and control section. 

• Program Flowcharts — which show the detailed logic of each control 
section. 

For a summary of the functions performed by subroutines, refer to the 
Directory in Section 4. 



B 



Program Hierarchy 



The Terminal I/O Service Routines are included in one load module, 
IKJPTGT, as shown in Figure 11. Load module IKJPTGT has nine control 
sections, as follows: 

IKJEFT30 — STACK Service Routine (IKJSTCK) 
IKJEFT35 — I/O Service Routine Messages 
IKJEFT40 — PUTLINE Service Routine (IKJPUTL) 
IKJEFT4 5 — PUTGET Service Routine (IKJPTGT) 
IKJEFT52 — CHAINOUT subroutine for PUTLINE and PUTGET 
IKJEFT53 « UNCHAIN subroutine for PUTLINE and PUTGET 
IKJEFT5U — TEXTIN subroutine for PUTLINE and PUTGET 
IKJEFT55 — GETLINE Service Routine (IKJGETL) 
IKJEFT56 — TERMOUT subroutine for PUTLINE and PUTGET 

Note that load module IKJPTGT has four entry points: 

IKJSTCK — for STACK 
IKJGETL — for GETLINE 
IKJPUTL — for PUTLINE 
IKJPTGT — for PUTGET 
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Module Descriptions 

IKJEFT30 — STACK SERVICE ROUTINE 



H 

Registers 
at Entry 

I 

Operation 



Entry 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
j. + 1 

| BA-BC | 8 
.J --L 



Entered by a LINK SVC instruction to entry point 
IKJSTCK in load module IKJPTGT. 



\ 



Register 1 contains the address of the IOPL which 
contains the address of the STPB. 



1 



I 

Data Areas 
Created by 

I 

Data Areas 

Updated by 



Creates and updates the Input Stack (INSTACK) which 
defines the current source of input: either from the 
terminal or from an in-storage list. 

• Creates the Input Stack. Initializes the first 
element (bottom element) to describe the terminal 
as a source of input. 

• Adder an element to the top of the Input Stack to 
define a new source of input: either from the 
terminal or from an in-storage list. 

• Deletes one or more elements from the top of the 
Input Stack, as follows: 

- top element only. 

- all elements down to and including the first 
element that describes an in-storage list 
containing a procedure. 

- all elements down to the first element (bottom 
element). The bottom element is never removed. 



-J 



INSTACK 
DUMYSTAK 



-H 



INSTACK 



Routines 
Called 

\- 

System Macros 
Used 



None 



GETMAIN 
FREEMAIN 



Exit 



Normal and error: Returns to the calling program. 



— I 



Registers 
at Exit 



Register 15 contains a return code, as follows: 



- Normal. Element (s) added to or deleted from 

the Input Stack. 
4 - Error. Invalid input to STACK. Either an 

invalid operation code or an invalid record in 

an in-storage list. 
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IKJEFT35 — I/O SERVICE ROUTINES MESSAGES 



| Entry 

I 

| Registers 

jat Entry 



r t 1 

| Flowcharts | Operation 

| Diagrams 



t~ 



I BR-BS 



|10-12 
-J. 



H 



IN/A 



IN/A 



-H 



I 



j. f _ 

| Operation | Contains no executable instructions. Contains 

| | message segments used to create all messages issued 

| |by STACK, GETLINE, PUTLINE, and PUTGET . 

L X 



B 
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IKJEFT40 — PUTLINE SERVICE ROUTINE 



Entry 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j._ + .} 

|BD-BE | 10 



Entered by a LINK SVC instruction to entry point 
IKJPUTL in load module IKJPTGT. 



-H 



Registers 
at Entry 



Register 1 contains the address of the IOPL which 
contains the address of the PTPB. 



Operation 



h 



Processes line(s) of output and sends them to the 
terminal. Performs one of the following functions: 

• Formats a message only. Does not send it to the 
terminal . 

• Formats a single- lev el informational message and 
sends it to the terminal. 

• Formats a first-level informational message, sends 
it to the terminal, or sends a first level 
informational message to the terminal and chains a 
second-level message to the ECTSMSG field of the 
ECT. 

• Sends line(s) of data to the terminal. 



~+ 



h 



Data Areas 
Created by 



k- 



Data Areas 
Updated by 



TXINPARM 



PTPB 
ECT 



Routines 
Called 



h 



IKJEFT52 - CHAINOUT subroutine 

IKJEFT53 - UNCHAIN subroutine 

IKJEFT54 - TEXTIN subroutine 

IKJEFT56 - TERMOUT subroutine 



System Macros 
Used 
I 

Exit 
t 

Registers 
at Exit 



GETMAIN 
FREEMAIN 



Normal and error: Return to the calling program. 



H 



Register 15 contains a return code, as follows: 



- 



4 
8 



12 
16 



Normal. Line(s) sent to the terminal. Or 

line(s) sent to the terminal and second-level 

messages chained. Or text inserted (format 

only was specified) . 

Error. Communications ECB f s post bit was on. 

Error. NOWAIT was specified as a TPUT option 

and no buffer was returned by TPUT. 

Error. Invalid parameters to PUTLINE. 

Error. A conditional GETMAIN was executed and 

no space was available. 
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IKJEFT45 — PUTGET SERVICE ROUTINE 



h 



i~ 



Entry 



Registers 
at Entry 



Operation 



I 

Data Areas 

Created By 

|. 

Data Areas 
Updated By 

I 

Routines 
Called 



r t 1 

| Flowcharts | Operation 
| J Diagrams 



| BF-B J 
-J 



|11-12 



System Macros 
Used 



Entered by a LINK SVC instruction to entry point 
IKJPTGT in load module IKJPTGT. 



Register 1 contains the address of the IOPL which 
contains the address of the PGPB. 



Entry module for the PUTGET Service Routine. 
Determines actions to be taken in PUTGET processing 
based on the input parameters f the user options 
specified in the UPT, the type of input source 
specified in the input stack, the type of response 
made by the terminal user, and the actions of 
subroutines . 

PUTGET has two processing modes: command mode and 
prompting mode. 

• In command mode, a mode message is sent to the 
terminal and a line of input is obtained from the 
terminal or from an in-storage list. 

• In prompting mode, a prompting message is sent to 
the terminal (unless the user has specified 
NOPROMPT or the current source of input is an. 
in-storage procedure) and a line of input is 
obtained from the terminal. 



TXINPARM 



PGPB 
TXINPARM 



IKJEFT52 - CHAIN0UT subroutine 
IKJEFT54 - TEXTIN subroutine 
IKJEFT56 - TERM0UT subroutine 
IKJEFT55 - GETLINE service routine 



GETMAIN 
FREEMAIN 



B 



I Exit 



| Normal and error: 

-i. 



Return to the calling program. 



(Continued) 
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|Registers JRegister 15 contains a return code, as follows: 

| at Exit | - Normal. Line sent to the terminal and line 

returned from the terminal. 
4 - Normal. Line sent to the terminal and line 

returned from an in-storage list. 
8 - Error. Communications ECB f s post bit was on. 
12 - Error. Different for command mode or 

prompting mode. 

In command mode: NOPAUSE was specified and 

input was from an in-storage list. 

Second-level messages are chained. 

In prompting mode: NOPROMPT was specified or 

input was from an in-storage procedure. 
16 - Error. NOWAIT was specified as a TPUT option 

and no TIOC buffer was available to TPUT. 
20 - Error. NOWAIT was specified as a TGET option 

and no buffer was returned by TGET. 
24 - Error. Invalid parameters to PUTGET. 
28 - Error. A conditional GETMAIN was executed and 

no space was available. 



IKJEFT52 — CHAINOUT SUBROUTINE OF PUTLINE AND PUTGET 

r 



r — 



I— 



Entry 



T 1 

| Flowcharts | Operation 
| | Diagrams 
k + 1 

| BK |10-11 

J J. 



Entered by a branch-and- link- register instruction to 
entry point IKJEFT52. 



Registers 
at Entry 



h 



Register 1 contains the address of the IOPL which 
contains the address of the PTPB (if called by 
PUTLINE) or the PGPB (if called by PUTGET). 



H 



Operation 



I 

Data Areas 
Created By 



Sends chained second-level messages , if available, or 
notifies the terminal that no second-level messages 
are available. 



H 



None. 



Data Areas 
Updated by 



h 



PTPB 
PGPB 
ECT 



Routines 
Called 



IKJEFT53 — UNCHAIN subroutine 
IKJEFT56 — TERMOUT subroutine 



—I 



System Macros 
Used 
j. 

Exit 
| 

Registers 
at Exit 



GETMAIN 
FREEMAIN 



Return to calling program. 



Register 15 contains a return code from IKJEFT56. 
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IKJEFT53 — UNCHAIN SUBROUTINE OF PUTLINE AND PUTGET 



Registers 
at Entry 

I 

Operation 



h 



Entry 



k- 



Data Areas 
Created by 



Data Areas 
Updated by 



Routines 
Called 



r t 1 

| Flowcharts | Operation 
| | Diagrams 

t + 



BL |10-11 
J. 



System Macros 
Used 



Exit 



Registers 
at Exit 



Entered by a branch-and- link- register instruction to 
entry point IKJEFT53. 



-\ 



Register 1 contains the address of the IOPL. 



Frees the storage allocated to a second-level message 
chain. Zeroes the ECTSMSG field in the ECT to 
indicate that no second- level messages are chained- 



H 



— I 



None. 



ECT 



-H 



None. 



GETMAIN 
FREEMAIN 



Return to the calling program. 



Registers 15 contains a zero return code. 



a 



Section 3: Program Organization 91 



IKJEFT54 — TEXTIN SUBROUTINE OF PUTLINE AND PUTGET 



I 

Registers 
at Entry 



Entry 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
t + .j 

JBM-BN |10-12 
.J J. 



Entered by a branch-and- link- register instruction to 
entry point IKJEFT5U. 



\ 



* 



Register 1 contains the address of the Text Insertion 
Parameter List (TXINPARM) which contains the address 
of the Output Line Descriptor (OLD) , the address of a 
one-word field into which TEXTIN places the address 
of a formatted message, and the address of a one-word 
switch that indicates "format only" (on input) or 
"free a buffer" (on output). 



H 



Operation 



Obtains a buffer for an output message and moves the 
segment (s) of that message into the buffer to produce 
one contiguous character string. 

TEXTIN processes four types of messages: 

1. Single segment messages. These are validity 
checked and returned to the caller with no 
further processing* 

2. Multiple segment messages. These are validity 
checked and segments are inserted to produce one 
contiguous character string. 

3. Format only requests. These are validity checked 
and placed in a subpool 1 buffer. 

4. Chained messages. Single segment or multiple 
segment messages that are to be forward-chained. 
These are validity checked and the segments are 
inserted, if necessary. A one- word 

for ward -chaining element is built and the message 
is placed in a subpool 78 buffer. 



--+■ 



H 



Data Areas 
Created By 



None 



Data Areas 
Updated By 



TXINPARM 



Routines 
Called 



None. 



System Macros 
Used 



GETMAIN 
FREEMAIN 



-+ 



-H 



Exit 



Normal and error: Return to the calling program. 



Registers 
at Exit 



Register 15 contains a return code, as follows: 



-J 



- 



12 - 



16 



Normal. Text insertion not needed or text 

insertion complete. 

Error. The Output Line Descriptor (OLD) or 

message segments are invalid. 

Error. A conditional GETMAIN was executed and 

no space was available. 
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IKJEFT55 — GETLINE SERVICE ROUTINE 



r t n 

| Flowcharts | Operation 
| | Diagrams 

I- 

JBP-BQ 
-J 



| 9, 11-12 

-i. 



J 

Registers 
at Entry 



h 



Data Areas 

Created by 

I 

Data Areas 
Updated by 



Entry 



Operation 



h 

Routines 
Called 



I 

System Macros 

Used 



Exit 



Registers 
at Exit 



Entered by a LINK SVC instruction to entry point 
IKJGETL in load module IKJPTGT if invoked as GETLINE 
service routine. Entered by branch-and-link-fegister 
instruction to entry point IKJEFT55 if invoked as 
GET/INPUT subroutine of the PUTGET service routine. 



Register 1 contains the address of the IOPL which 
contains the address of the GTPB (if called as 
GETLINE) or the PTGGCNTL field of the PTPB (if called 
by PUTGET) . 



J 



Obtains a line of input from the terminal or from the 
current source of input as determined by the Input 
Stack, 



-1 



STPB 



H 



LSD 

GTPB 
PTPB 



IKJEFT30 (STACK Service Routine) 



TGET 

GETMAIN 

FREEMAIN 



Normal and error: Return to calling program. 



Register 15 contains a return code, as follows: 
- Normal. Line of input obtained from the 

terminal. 
4 - Normal. Line of input obtained from an 

in-storage list. 
8 - Error. Communications ECB f s post bit was on 
or user was disconnected. 
12 - Error. NOWAIT was specified as a TGET option 

and no buffer was available to TGET. 
16 - Normal. EOD returned from an in-storage list. 
20 - Error. Invalid parameters to GETLINE or TGET. 
24 - Error. A conditional GETMAIN was executed and 
no space was available. 



B 



-* 
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IKJEFT56 — TERMOUT SUBROUTINE OF PUTLINE AND PUTGET 



Entry 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
t + ^ 

|BR-BS | 10-12 
J -L 



Entered by a branch-and-link-register instruction to 
entry point IKJEFT56. 



H 



Registers 
at Entry 



i 

Operation 



Register 1 contains the address of the IOPL which 
contains the address of the PTPB (if called by 
PUTLINE) or the PGPB (if called by PUTGET) . 



I 



h 



Sends line(s) of output to the terminal. The line(s) 
can contain messages or data. 

• If the line(s) contain messages, TERMOUT optionally 
strips off message identifiers before sending 
line(s) to the terminal. 

• If the line(s) contain data, TERMOUT sends them to 
terminal without further processing. If the data 
is multi-line, TERMOUT sends all the lines to the 
terminal. 



H 



h 



Data Areas 
Created By 



None 



Data Areas 

Updated By 

I 

Routines 
Called 



None 



-H 



None 



i 

System Macros 
Used 



-H 



TPUT 



I 

Exit 



Normal and error: Return to the calling program. 



-H 



Registers 
at Exit 



Register 15 contains a return code, as follows: 



- 



4 
8 



12 - 



Normal. Line(s) sent to the terminal. Or no 

line put out due to an Attention interrupt but 

no ECB posted. Or user disconnected. 

Error. Communications ECB posted. 

Error. No line(s) sent. NOWAIT was specified 

as a TPUT option and no buffer was available 

to TPUT. 

Error. Invalid parameters to TERMOUT or TPUT. 
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Program Flowcharts 

This section contains program flowcharts that describe the detailed 
logic of the Terminal I/O Service Routines. It includes: 

Chart BA-BC — IKJEFT30 
Chart BD-BE — IKJEFTUO 
Chart BF-BJ — IKJEFTU5 
Chart BK — IKJEFT52 
Chart BL — IKJEFT53 
Chart BM-BN — IKJEFT54 
Chart BP-BQ — IKJEFT55 
Chart BR-BS — IKJEFT56 



E 
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CHART BA — IKJEFT30 



f ENTRY J 



INITIALIZE 
INTERNAL 
POINTERS 




GET STORAGE FOR 
STACK AND IOSRL 



FROMBB/B1 
BB/D5 
BB/J3 



INITIALIZE 
IOSRL 




FILL IN STACK 
ELEMENT 




L B 



INCREMENT 

POINTER TO 

CURRENT ELEMENT 




FREE OLD STACK 
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CHART BB — IKJEFT3 



|BB 
FROM I B1 
BA/F1 1 




FREE STORAGE IF 
NECESSARY 



-D5- 



I 

I UPDATE POINTER 
I TO TOP ELEMENT 



L E> 



s 
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CHART BC — IKJEFT30 



I ENTRY ) 




FREE THE LSD 



►f RETURN J 



98 Terminal Monitor Program (Release 21.6) 



CHART BD — IKJEFTUO 



r~ M — >k 

( ENTRY J 




SET UP TEXT 

INSERTION PARMS 

FOR FORMAT 

ONLY. 




INDICATE 

INVALID 

PARAMETERS 



FORMAT AND 

PLACE MSG IN 

SUBPOOL 1 



SET UP 
PARAMETERS FOR 
TERMINAL OUTPUT 

ROUTINE 



FROM I E1 
BE/F1 I 



PLACE REG 15 

INTO CALLERS 

SAVE AREAS 



G 



j 




I 
© 



SET UP PARMS 
FOR TEXT 
INSERTION 



PERFORM TEXT 

INSERTION IF 

NECESSARY 




B 



TERMINAL OUTPUT 
SUBROUTINE 



TERMINAL OUTPUT 
SUBROUTINE 



CHAINOUT (PUT 

2ND LEV CHAIN 

OUT) 



FREE OUTPUT 
BUFFER IF 
NECESSARY 
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CHART BE — IKJEFT4 



FROM 
BD/H5 



A1 — 



SET UP TEXT 
INSERTION PARMS 

INDICATING 
CHAINING FORMAT 



FORMAT 2ND LEV 

MSG IN CHAIN 

FORMAT 




DOES A ^S^YES 
CHAIN ALREADY ^~ 
EXIST? 




R5 = FIRST 

ELEMENT (LOCATE 

1ST ELEMENT) 



MAKE THIS THE 

FIRST MSG ON 

CHAIN 



UNCHAIN 
SUBROUTINE 
FREE 2ND LEVEL 



FROM I BE 
BD/G5I F1 
BD/H5 1 



-E1- 




R5 = NEXT ELM 

(LOCATE NEXT 

ELEM) 



I ' 

I INDICATE NORMAL 
I RETURN CODE 



PLACE THE 

MESSAGE ON END 

OF CHAIN 



l B 
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CHART BF — IKJEFTU5 





FROM BG/D4 
BG/D5 



IIKJEFT53 



| t 

I IKJEE 

I UNCHAIN FREE 
I 2ND LEV CHAIN 



1 



l & 





S 



I — 

I INDICATE NO 
I PAUSE RETURN 
I CODE (12) 




I ' 

I INDICATE NON 
I TERMINAL INPUT 
I SOURCE 
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CHART BG — IKJEFT45 



FROM BF/C5 
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CHART BH — IKJEFT45 



FR0MBF/C1 




E 
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CHART BJ — IKJEFT45 



r~ ^ 

( PUTLGETL J 




FR0MBH/A5 




INDICATE 
GETMAIN FAILURE 



-© 



L*E> 



TERM OUT 
SUBROUTINE 



FREE OUTPUT 

BUFFER IF 

TEXTINSERTION 

WAS PERFORMED 




C_EZ) 



GET A LINE 



© 



FROMBF/K1 
BF/H5 - 



INDICATE 

ATTENTION ERROR 

(RC=8) 



BG/D2 
BG/D5 

TRMOUTER_ 

YES 





YES>^ NOWAIT 

NOLINE ERROR 



INDICATE 

INVALID PARMS 

(RC=24) 



104 Terminal Monitor Program (Release 21.6) 



CHART BK — IKJEFT52 



( ENTRY 1- 



INITIALIZE WORK 
AREAS AND 
POINTERS 



-B2- 



SAVE PTR TO 

REAL OUTPUT 

LINE SO PTPB 

CAN BE USED 




E 
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CHART BL — IKJEFT53 



/^~ > k 

f IKJEFT53 1 



R2=ADDRESS OF 

FIRST ELEMENT 

(ECTSMSG) 



ZERO OUT CHAIN 

ORIGIN FIELD 

(ECTSMSG) 



INDICATE SHARED 
SUBPOOL (78) 
FOR FREEMAIN 



E2 


,2 ?.^>v N0 


SET UP FREEMAIN 
PARMS USING R2 


^C ELEMS?) ~Zr 


\ 


•*YES 


T3 ' 


' 


R2 = CHAIN 
FORWARD POINTER 
(POINT TO NEXT 

CHAIN ELEM) 


( RETURN J 




c: ' 


r 


FREE THE 
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CHART BM — IKJEFT54 




B 



i — J 

I OFFSET = 8 
I (ALLOW FOR 
I CHAIN HEADER) 
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CHART BN — IKJEFT54 



FROM BM/G2 I BN . 



1 



SUBPOOL = 1 



OFFSET=4 ALLOW 

FOR VREC FORMAT 

HEAD 



FROM BM'/ 32 IBN 

C1 >-► 



LENGTH (OF 

BUFFER) =LENGTH 

+OFFSET 



GETMAIN - GET 

STORAGE FOR 
TARGET BUFFER 



-F1- 



I 

I INDICATE 
I GETMAIN FAILURE 
(RC = 16) 



L[£> 




MOVE PART OF 

PRIMARY SEGMENT 

INTO TARGET 




MOVE SEGMENT I 

INTO TARGET 

BUFFER 



GETMAIN^ 


v° > 


FILL IN LENGTH 

AND OFFSET 

FIELDS OF 

TARGET BUFFER 


. / 


? * 


^sXYES 


i 


' 
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CHART BP — IKJEFT55 



f IKJEFT55 1 



INITITIALIZE 






GETLEN=136 

ESTABLISH 

GETMAIN LENGTH 



GET INITIAL 
BUFFER 




INIT TGETS 

BUFFER ADDR TO 

BEGIN OF TEXT 

FIELD 



/ TGET A LINE / 

/FROM terminal/ 



INCR LL BY 

LENGTH OF LINE 

RETURNED 



^^BUFFER TOO^S. I 
-*^ SMALL? ^~ 

^S^YES 





MOVE PARTIAL 

RECORD TO NEW 

BUFFER 



LL=LL-1, 

DECREMENT RECRD 

LEN BY 1 



INCREMENT TGETS 
BUFFER LENGTH 



INDICATE NORMAL 
END RC=0 



1 
© 



0. 



B 



INDICATE 

INVALID PARMS 

RC=20 



INDICATE 

ATTENTION ERROR 

RC=8 





' 






1 


EREXIT i ' 


UPDATE TGETS 

INPUT BUFFER 

ADDR 




FREE INPUT 
BUFFER 



FROM BQ/B4 
BQ/JA 



FROMBQ/F2 ["^p 
K4 



INCREMENT TGETS 

BUFFER ADDR BY 

LL 



1 



INDICATE 

GETMAIN ERROR 

RC=24 



►( RETURN 1 
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CHART BQ — IKJEFT55 



FR0MBP/D1 




^FIXED FORMAT?^- 
^sXYES 



GETMAIN LEN 
RECORD LEN + 



GETMAIN LEN = 
RECORD LEN 



GETMAIN FOR 
INPUT BUFFER 




MOVE ENTIRE 

RECORD INCLUDE 

HEADER 



MOVE TEXT 

PORTION OF 

RECORD 



FILL IN BUFFER 

ADDR IN PARM 

BLOCK 



UPDATE LSD 

POINTER TO NEXT 

RECORD 



I M 1 

I INDICATE NON 
I TERMINAL SOURCE 
I RC=4 



l B 
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CHART BR — IKJEFT56 



FR0MBS/D3 




SAVE FORWARD 

POINTER TO NEXT 

CHAIN ELEMENT 




DETERMINE 

LENGTH OF MSG 

ID 





I 




CALC BUF ADDR 6 
LEN WITHOUT ID 



■© 




w SHOULD ID \ YES 
BE STRIPPED ?y 



CALC LENGTH 6 

ADDR OF BUFR 

WITHOUT ID 



CALCULATE 

LENGTH £ BUFF 

ADDR USING ID 

LENGTH 
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CHART BS — IKJEFT56 



FROM BK/K2 



i — Ai-i- 



r — 7 

/ TPUT A LINE / 
/ TO TERMINAL / 




NO WAIT NO^S^NO 
LINE ERR ? 



INDICATE NOWAIT 
ERR (RC=8) 



©♦ 



r~ E1 ^ 

f END 1 




INDICATE 

INVALID PARMS 

RC=12 




I ' 

I PLACE POINTER 
I TO NEXT LINE IN 
I OUTPUT PARM 



l B 
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Section 4: Directory 



This chart contains information to help you find the appropriate program description, 
flowchart, or assembly listing. It correlates information from three sources: 

• The source code. 

• The executable load modules. 

• This manual . 

r r t t t t t t — 



Label 
.| 

IKJEFT30 


Common Name 

h H 

STACK 

Service 

Routine 


Load 
1 Module 
Name 
^ 

IKJPTGT 


Assembly 
Module 
Name 
H 

IKJSTCK 


Control 
Section 
Name 
^ 

IKJEFT30 


Description 
H 

Creates and updates the 
IOSRL and Input Stack 
which determine the 
current source of 
input. 


Flow- 
chart 


BA 


Dia- 
gram 


8 


IKJEFT35 


Terminal 
I/O Service 
Routine 
Message 
Module 


IKJPTGT 


IKJEFT35 


IKJEFT35 


Contains message segments 
used by Terminal I/O 
Service Routines. 






IKJEFT40 


PUTLINE 
Service 
Routine 


IKJPTGT 


IKJPUTL 


IKJEFT40 


Sends line (s) of data to 
the terminal; formats 
messages and sends them to 
the terminal. 


BD-BE 


10 


IKJEFT45 


PUTGET 

Service 

Routine 


| IKJPTGT 


IKJPTGT 


IKJEFT45 


Sends messages to the 
terminal and obtain a line 
of input from the current 
source of input 


BF-BJ 


11-12 


IKJEFT52 


CHAINOUT 
Subroutine 


IKJPTGT 


IKJEFT52 


IKJEFT52 


Sends chained second-level 
messages if available, or 
notifies terminal that no 
messages are available. 


BK 


10-11 


IKJEFT53 


UNCHAIN 
Subroutine 


| IKJPTGT 


IKJEFT53 


IKJEFT53 


Frees storage allocated to 
second -level message chain. 


BL 


10-11 


IKJEFT54 


TEXTIN 
Subroutine 


IKJPTGT 


IKJEFT54 


IKJEFT5U 


Obtains message buffer and 
inserts message segments. 


BM-BN 


10-12 


IKJEFT55 


GETLINE 
Service 
Routine 


IKJPTGT 


IKJGETL 


IKJEFT55 


Obtains line(s) of data 
from the terminal or from 
current source of input. 


BP-BQ 


9,11- 
12 


IKJEFT56 


TERMOUT 
Subroutine 


IKJPTGT 


IKJEFT56 


IKJEFT56 


Sends line(s) to the 
terminal 


BR-BS 


10-12 



B 



h 



j Note ; IKJPTGT is a reenterable and refreshable load module. Normal residence is 
ISYS1.LINKLIB. 

, J 
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Section 5: Data Areas 



This section describes the major data areas used by the Terminal I/O 
Service Routines, including: 

Environment Control Table (ECT) 

GETLINE Parameter Block (GTPB) 

Input Stack (INSTACK) 

Input/Output Parameter List (IOPL) 

I/O Service Routines Parameter List (IOSRL) 

List Source Descriptor (LSD) 

Output Line Descriptor (OLD) 

PUTGET Parameter Block (PGPB) 

PUTLINE Parameter Block (PTPB) 

STACK Parameter Block (STPB) 

Text Insertion Parameter List (TXINPARM) 

User Profile Table (UPT) 

The following information is included for each data area: 

• Size, in bytes. 

• Name(s) of the routine (s) that creates it. 

• Name(s) of the routine (s) that update and/or reference it. 

• Field names, displacements, size, and contents. 

• Cross-reference to method of operation diagrams and program 
flowcharts . 
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ENVIRONMENT CONTROL TABLE (ECT) 
Size: 40 bytes 

Located in Subpool 1 
Created by: 



Updated by: 
Referenced by: 
Contents : 



Terminal Monitor Program (IKJEFT01) 

IKJEFT45, IKJEFT52, IKJEFT53, IKJEFT55, 
IKJEFT56 

IKJEFT30 f IKJEFT45, IKJEFT52, IKJEFT53, 
IKJEFT55, IKJEFT56 

Information about the user's environment in the 
foreground region. 



r r 1 

| Flowcharts | Operation 
| | Diagrams 

|BA-BS | 8-12 
j j. 



ECTRTCDF 



Displacement 
Dec • Hex . 



1 
4 
8 



12 


C 


20 


14 


28 


1C 



28.0 



28.1 



ICO 



1C.1 



Field 

Name 



ECTRTCD 
ECTIOWA 
ECTMSGF 



ECTMSG 

ECTPCMD 
ECTSCMD 
ECTSWS 

EC1NOPD 



Size 

Bytes 



3 
4 
1 



8 
8 
1 



Contents 



ABEND Flags. Bit settings, as 
follows: 

Bit Meaning when set 

Command processor ABENDed. 

1-7 Reserved (0) 

Return code from ABEND. 

t I/O Service Routine List (IOSRL) 

Message Flags. Bit settings, as 
follows : 

Bit Meaning when set 

Delete second-level messages. 

1-7 Reserved (0) 

t Second-level message chain, or zero 
if no messages are chained. 

Command Name. 

Subcommand Name. 



ECT Switches - 
follows: 



Bit settings, as 



Bit Meaning when set 

No parameters exist in command 
buffer. 

1 Reserved (0). 



E 



(Continued) 



Section 5: Data Areas 115 



r - r 

| Displacement! Field 

[Dec. Hex. [Name 

j. + 

J28.2 1C.2|ECTATRM 


|Size 
(Bytes 
-+ 


in| 

~+ 

|2 


Contents 

Command processor being 
terminated by the TMP using a 
DETACH macro instruction with a 
STAE operand. 


|28.3 


1C. 3|ECTL0GF 




I 3 


LOGON or LOGOFF command processor 
has requested re-logon or. logoff. 


|28.4 


1C.4|ECTNMAL 




I 1 * 


No user messages at logon. 


|28.5 


1C. 5|ECTNN0T 




|5 


No system messages at logon. 


| 28. 6 


1C. 6| 




| 6-7 


Reserved (0) . 


| 29 


ID | ECTDDNUM 


1 3 




Counter used by dynamic 
allocation SVC routines when 
assigning temporary DDNAMEs. 


|32 


20 |ECTUSER 


1 4 




Reserved for installation. 


|36 


24 | 


1 ** 




Reserved (0). 
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GETLINE PARAMETER BLOCK 

Size: 

Located in Subpool 

Created by: 

Updated by: 

Referenced by: 

Contents : 



(GTPB) 
8 bytes. 
Any. 

Caller of GETLINE service routine. 
IKJEFT55 
IKJEFT55 
Control information to GETLINE. 



r t 1 

| Flowcharts | Operation 
| Diagrams 



Displacement 
Dec. Hex. 



^ 

| BP-BQ | 
-JL -L- 



H 



Field 
Name 



PARMCNTL 



PARMPHYS 



PARMTERM 



PARMTGT 



Size in 
Bytes 



Contents 



Control Flags. Bit settings that 
indicate the operation to be performed 
by Get line, as follows: 

Bit Meaning when set 



H 



0-2 Reserved (0). 

3 The line of input is a physical 
line; if zero, it is a logical 
line. 

4 The source of input is the 
terminal; if zero, it is as 
described by the top element on 
the Input Stack. 

5-15 Reserved (0) 

TGET Options. Bit settings that 
indicate the operation to be performed 
by TGET, as follows: 



Bit 





1-2 

3 

4-6 
7 



Meaning when set 
Always set for TGET. 
Reserved (0). 

NOWAIT was specified; if zero, 
WAIT was specified. 
Reserved (0). 

ASIS was specified; if zero, EDIT 
was specified. 
8-15 Reserved (0) . 

For further information about the 
TGET macro instruction see IBM 
System/360 Operating System: 
Time Sharing Option: Guide to 
Writing a Terminal Monitor 
Program or a Command Processor , 
GC28-6764. 
. J 

(Continued) 



E 
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I Displacement 
J Dec. Hex. 

14 4 



Field 
Name 

+ f 

PARMADIN 



T . 1 

Size in | 

Bytes j 

+— 

4 | The address of the input buffer in 

j which the line has been placed. The 
| f ormat of the buffer is as follows: 



Contents 
j 



L JL 



I Byte Contents 

| 0-1 The lengthy in bytes r of the 

I input buffer. 

j 2-3 The offset to the first character | 

| in the input line. 

j j 4-47 The line of input. 

—J- JL J 
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INPUT STACK (INSTACK) 

Size: 

Located in Subpool 78 

Created by: 

Updated by: 

Referenced by: 

Contents : 



Variable, A multiple of 32 bytes. 

IKJEFT30 

IKJEFT30 

IKJEFT45, IKJEFT55 

A last in/first out (LIFO) queue of elements 
that describe sources of input. 

r t 1 

| Flowcharts | Operation 
| | Diagrams 
I + + 

| BA-BC | 8 
1 X 



Displacement 
Dec. Hex. 



4 
5 



28 
29 



1C 
ID 



1- 



Field 
Name 



T T 

Size in 
Bytes 



INSCODE 

INSTERM 
INSSTOR 

INSPROC 
INSLIST 

INSADLSD 

INSCODE 
INSADLSD 



INSCODE 
INSADLSD 



1 
3 



Contents 



Bit settings that describe the type of 
element, as follows: 

Bit Meaning when set 

Terminal element- 

1 Storage element. 
2-5 Reserved (0). 

6 Procedure element. 

7 Each line of the in-storage list 
is to be listed at the terminal 
when obtained by PUTGET. 

The address of the List Source 
Descriptor (LSD) or zero for a 
terminal element. 



-* 



Same as above. 
Same as above. 



2nd stack element 



Same as above - 
Same as above, 



8th stack element 



Note : The initial size of the Input Stack is 8 words (32 bytes). If 



all available positions are used for active stack elements, then the 
stack is enlarged by 8 more words (32 more bytes) 



B 
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INPUT/ OUTPUT PARAMETER 

Size: 

Located in Subpool 

Created by: 

Updated by: 
Referenced by: 
Contents : 



LIST (IOPL) 

16 bytes. 

Any. 

Caller of STACK, GETLINE, PUTLINE or PUTGET 
service routine. 

None 

IKJEFT30, IKJEFT40, IKJEFT45, IKJEFT55 



Displacement 
Dec. Hex. 



12 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
t + 

|BA-BS | 8-12 

.J ± 



Field 
Name 

IOPLUPT 



IOPLECT 



IOPLECB 



IOPLIOPB 



Size in 
Bytes 
+ 



Contents 

The address of the User Profile Table 
(UPT) . 

The address of the Environment Control 
Table (ECT) . 

The address of the command processor 1 s 
Event Control Block (ECB) . 

The address of the parameter block for 
one of the Terminal I/O Service 
Routines, as follows: 



Service Routine 



STACK 
GETLINE 
PUTLINE 
PUTGET 



Parameter Block 

STPB 

GTPB 

PTPB 

PGPB 
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I/O SERVICE ROUTINE LIST ( IOSRL) 
Size: 20 bytes 

Located in subpool 78. 
Created by: 



Updated by: 
Referenced by: 

Contents : 



IKJEFT30 

IKJEFT30 

IKJEFT45 
IKJEFT55 

Information about the current status of the 
Input Stack. 

r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + -1 

|BA-BC, | 8-9 f 11-12 
| BF-BS | 
r ^ J X 



Displacement 
Dec. Hex. 



12 



16 



Field 

Name 



IOSTELM 



10 SB ELM 



IOSTLEN 



IOSNELM 



10 



Size in 
Bytes 



Contents 



The address of the top element on the 
Input Stack which describes the 
current source of input. 

The address of the bottom element on 
the Input Stack which describes the 
terminal as the source of input. 

The total length, in bytes, allocated 
for the Input Stack, as obtained by a 
GETMAIN. 

The number of elements that were on 
the Input Stack when the last GETMAIN 
was issued. 

Reserved (0). 



B 
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LIST SOURCE DESCRIPTOR 

Siz e : 

Located in Subpool 78. 

Created by: 

Updated by: 

Referenced by: 
Contents : 



(LSD) 

16 bytes. 

Caller of STACK service routine. 

IKJEFT55 (as GETLINE or as the GETINPUT 
subroutine of PUTGET 

IKJEFT30, IKJEFT55. 

Information about an in-storage list. 



Displacement 
Dec Hex. 



Field 

Name 



Size in 
Bytes 



r ' t 1 

| Flowcharts | Operation 
| | Diagrams 

j. + ^ 

|BA-BC, | 8-9 , 11-12 
| BF-BS | 
J. x - H 



Contents 



-H 



12 



LSDADATA 



LSDRCLEN 



LSDTOTLN 



LSDANEXT 



LSDRSVRD 



The address of an in-storage list. 
Set by the caller of STACK. Referred 
to by STACK r GETLINE and PUTGET. 

The length, in bytes, of each record 
in the in-storage list, or zero if the 
records are in variable- length format. 

The total length, in bytes, of the 
in-storage list. Set by the caller of 
STACK. 

The address of the next record to be 
read. Set by the caller of STACK. 
Updated by GETLINE and PUTGET. 



Reserved (0). 



j 
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OUTPUT LINE DESCRIPTOR 

Size: 

Located in Subpool 

Created by: 

Updated by: 

Referenced by: 

Contents: 



(OLD) 

Variable. 

Any. 

Caller of PUTLINE or PUTGET service routine. 

IKJEFT40 

IKJEFT40, IKJEFT45, IKJEFT54, IKJEFT56 

The addresses of message segments. 

r T 1 

| Flowcharts | Operation 

| | Diagrams 
j. + 1 

|BD-BE, |10-12 
| BF-B J | 

J X 



Displacement 
Dec. Hex. 



12 



Field 
Name 



T 

Size in 
Bytes 



Contents 



The address of the next OLD or zero 
for the last OLD in the chain. (This 
field is present only if the message 
pointed to is a multi-level message.) 

The number of message segments in this 
OLD. 

The address of the first message 
segment. 

The address of the second message 
segment. 



The address of the last message 
segment. 



E 
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PUTGET PARAMETER BLOCK 

Size: 

Located in Subpool 

Created by: 

Updated by: 

Referenced by: 

Contents : 



(PGPB) 

16 bytes. 

Any* 

Caller of PUTGET service routine. 

IKJEFT55 

IKJEFT45, IKJEFT55 f IKJEFT56 

Control information for PUTGET. 



Displacement 
Dec. Hex. 



Field 
Name 



PTGPCNTL 

PTGPBTO 

PTGPPUT 

PTGPDTMS 

PTGPSNGL 

PTGPMLIN 

PTGPMLEV 

PTGPIFOR 

PTGPPRMT 

PTGPMODE 

PTGPDMND 

PTGFORM 
PTGPBYPS 



T T 

Size in 
Bytes 

2 



r t 1 

| Flowcharts! Operation 
| (Diagrams 
j. + ^ 

JBF-BJ |11-12 
-J. X 



PTGPUNUS 



Contents 



— I 



PUT Options. Bit settings that 
indicate the output operations to be 
performed by PUTGET, as follows: 

Bit Meaning when set 

Reserved (OK 

1 Reserved (0). 

2 Always zero for PUTGET. 

3 Single-level format. 

4 Always zero for PUTGET. 

5 Multi-level format. 

6 Always zero for PUTGET. 

7 Prompting message. 

8 Mode message. 

9 Reserved (0) . 

Bit Meaning when set 

10 Reserved (0). 

11 Bypass processing. The terminal 
will send a message without 
printing it. (Used for secret 
communications such as 
passwords.) 

12-15 Reserved (0) 



(Continued) 
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I Displacement 
I Dec. Hex. 



h 



110 



112 



Field 
Name 



PTGPTPUT 



PTGPAOUT 
PTGGCNTL 

PTGGBITO 

PTGGGET 

PTGGPHYS 

PTGGTERM 

PTGGBRSV 

PTGGTGET 



PTGGADIN 



Size in 
Bytes 



Contents 



TPUT Options Field. Bit settings that 
indicate the TPUT options requested, 
as follows : 

Bit Meaning when set 

Always zero for TPUT. 

1-2 Reserved (0). 

3 NOWAIT processing requested. 

4 HOLD processing requested. 

5 BREAKIN processing requested. 

6 CONTROL processing requested. 

7 ASIS processing requested. 
8-15 Reserved (0) . 

For further information about TPUT 
macro instruction, refer to the IBM 
System/360 Operating System: Time 



H 



Sharing Option: Guide to Writing a 
Terminal Monitor Program or a Command 
Processor . GC28-6764 



The address of the Output Line 
Descriptor (OLD) for the message. 

GET Options. Bit settings that 
indicate the input operations to be 
performed by PUTGET, as follows: 



Bit 



Meaning when set 
Reserved (0). 



1 Not used in PUTGET. 

5 Not used in PUTGET. 

3 Demand from terminal. 

4-15 Reserved (0). 

TGET Options. Bit settings that 
indicate the TGET options requested, 
as follows: 

Bit Meaning when set 

Always set for TGET. 

1-2 Reserved (0). 

3 NOWAIT processing requested. 

4-6 Reserved (0). 

7 ASIS processing requested. 

8-15 Reserved (0). 

For further information about TGET 
macro instruction, refer to the IBM 
System/ 360 Operating System: Time 



Sharing Option: Guide to Writing a 
Terminal Monitor Program or a Command 
Processor, GC28-6764 



The address of the input buffer in 
which the line is placed. 



B 
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PUTLINE PARAMETERR BLOCK (PTPB) 



Size: 

Located in Subpool 
Created by: 
Updated by: 
Referenced by: 
Contents : 



12 bytes. 

Any. 

Caller of PUTLINE service routine. 

IKJEFT56 

IKJEFT40, IKJEFT54, IKJEFT56 

Control information for PUTLINE. 




T 



j Flowcharts | Operation 
| | Diagrams 
|. + 

JBD-BE | 10 

-J. i 



Size in 
Bytes 
+ 



Contents 



Control Flags. Bit settings, as 
follows: 



Bit 



4 
5 
6 
7 
8 
9 
10 



Meaning when set 

Reserved (0) 

Reserved (0) 

Line contains data, 
contains message. 



If f line 



Line is single-level or 
single-line. 

Multi-line format (data). 

Multi -level format (messages) 

Informational message. 

Reserved (0) . 

Reserved (0). 

Reserved (0) . 

Format Only. (Do not send 
message to the terminal). 



11-15 Reserved (0). 



(Continued) 
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I Displacement 
I Dec, Hex. 



Field 
Name 



PARMTPUT 



PARMAOUT 



PARMAFRM 



Size in 
Bytes 



Contents 



TPUT Options Field. Bit settings that 
indicate the TPUT options requested, 
as follows : 

Bit Meaning when set 

Always zero for TPUT. 

1-2 Reserved (0). 

3 NOWAIT processing requested. 

4 HOLD processing requested. 

5 BREAKIN processing requested. 

6 CONTROL processing requested. 

7 ASIS processing requested. 

For further information about TPUT 
macro instruction, refer to the IBM 
System/ 360 Operating System: Time 



Sharing Option: Guide to Writing a 
Terminal Monitor Program or a Command 



Processor , GC28-6764 



8-15 Reserved (0). 

The address of Output Line Descriptor 
(OLD) for a message or the address of 
the fullword header for data. 

The address of the formatted line if 
"format only" was specified. 
Otherwise f the field is not changed. 



S 
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STACK PARAMETER BLOCK (STPB) 
Sizes 8 bytes- 

Located in Subpool Any. 



Created by: 
Updated by; 
Referenced by: 
Contents : 



Caller of STACK service routine. 

None. 

IKJEFT30 

Control information for STACK. 



Displacement 
Dec. Hex. 



2 
4 



Field 

Name 



STBOPCOD 

SPADD 

SPBDLCUR 

SPDLPRC 



SPBDLALL 



SPBRSVRD 



STBCODE 



SPBTERM 
SPBSTOR 
SPBRSVD 
SPBPROC 

SPBLIST 



SPBRESVD 
STBADLSD 



T T 

Size in 
Bytes 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + ^ 

J BA-BC | 8 

-J ± 



2 



Contents 



Operation Code. Bit settings that 
indicate the operation to be 
performed , as follows: 

Bit Meaning when set 

Add one element to the top of the 
stack. 

1 Delete one element from the top 
of the stack. 

2 Delete the current procedure 
element from the stack. If the 
top element is not a procedure 
element, delete all elements down 
to and including the first 
procedure element. 

3 Delete all elements down to the 
bottom element. (The bottom 
element is never removed.) 

4-7 Reserved (0). 

Element Code. Bit settings that 
indicate the type of element to be 
added to the stack, as follows: 

Bit Meaning when set 

Terminal element. 

1 In-storage element. 
2-5 Reserved (0). 

6 Procedure element; if zero, 
source element. 

7 List each element at terminal as 
read. Used only by PUTGET. 

Res erved ( ) . 

The address of the List Source 
Descriptor (LSD). If the input source 
is the terminal, or if the delete 
function was specified, the field will 
contain zeroes. 
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TEXT INSERTION PARAMETER LIST (TXINPARM) 



Size: 

Located in Subpool 

Created by: 

Updated by: 
Referenced by: 
Contents: 



12 bytes 

Any. 

IKJEFTUO 

IKJEFT45 

None . 

IKJEFT54 

Information about output messages. 



Displacement 

Dec . Hex . 

I 



Field 
Name 



TXISEGMT 



TXIFRMSG 



TXIFONLY 



Size in 
Bytes 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
t + 

| BR |10-12 
.J j. H 



Contents 



The address of the Output Line 
Descriptor (OLD) . 

The address of a one-word field into 
which the TEXTIN subroutine places the 
address of a formatted message. The 
formatted message is constructed from 
variable-length segments in the OLD. 

The address of a one-word field used 
as a switch, as follows: If set on 
entry to IKJEFT54, it indicates 
"Format Only" is requested. If set on 
exit from IKJEFT54, it indicates a 
PUTGET or PUTLINE buffer must be 
freed. 



B 
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USER PROFILE TABLE (UPT) 



Sizes 

Located in Subpool 
Created by: 
Updated by: 
Referenced by: 
Contents : 



16 bytes. 



LOGON/LOGOFF Scheduler. 

PROFILE command processor. 

IKJEFT45, IKJEFT56 

Information about terminal user. 



Displacement 
Dec. Hex. 

I 



2 

12 



Field 
Name 



T T 

Size in 
Bytes 



r t 1 

| Flowcharts! Operation 
| | Diagrams 
I. + j 

|BF-BJ, | 8-12 
| BR-BS | 
.J ± 



Contents 




2 
C 



UPTUSER 
UPTSWS 



UPTNPRM 
UPTMID 

UPTNCOM 

UPTPAUS 
UPTALD 



13 


D 


14 


E 


15 


F 



UPTCDEL 
UPTLDEL 



2 
10 

1 



1 
1 
1 



Reserved (0). 

Reserved for installation use. 

User Environment Switches. Bit 
settings, as follows: 

Bit Meaning when set 

Reserved (0). 

1 Prompt; if zero, no prompt. 

2 Message identifiers; if zero, 
message identifiers will be 
removed. 

3 No user communication using the 
SEND command; if zero, user 
communication is allowed. 

4 PAUSE was specified; if zero, 
NOPAUSE was specified. 

5 Attention is a line delete 
character; if zero, attention is 
not a line delete character. 

6-7 Reserved (0) . 

Character delete character. 

Line delete character. 

Reserved (0). 
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Section 6: Diagnostic Aids 



This section contains the following charts: 

• Messages (Figure 12) — a list of messages issued by Terminal I/O 
Service Routines. 

• Register Usage (Figure 13) — a summary of the use of general 
registers 0-15. 

• Return Codes (Figure 14) — a summary of return codes and their 
meanings. Unless otherwise specified, return codes are contained in 
register 15. 

i r t 1 

|Message ID|Message | Issued by | 
|. f + 1 

|IKJ567601 | NO INFORMATION AVAILABLE | IKJEFT56 

I I I 

JIKJ56761A | INVALID RESPONSE. ENTER ? | IKJEFT56 

| | OR HIT CARRIER RETURN- | 

I I I 

JIKJ56762A | PAUSE | IKJEFT56 

L JL -L 

Figure 12. Messages: Terminal I/O Service Routines 



B 
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IKJEFT30 


IKJEFT40 


Register 


Name 


Contents 


Name 


Contents 





R0 


Work Register 


R0 


Work Register 


1 


Rl 


t lOPL/Work Register 


Rl 


f IOPL 


2 


R2 


| ECT 


— 


Work Register 


3 


R3 


f STPB 


— 


Work Register 


4 


R4 


Work Register 


R4 


Work Register 


5 


R5 


| IOSRL 


R5 


Work Register 


6 


R6 


Work Register 


— 


Work Register 


7 


— 


Work Register 


— 


Work Register 


8 


— 


Work Register 


— 


Work Register 


9 


— 


Work Register 


— 


Work Register 


10 


— 


Work Register 


— 


Work Register 


11 


— 


Base Registe; 


- 


Base Register 


12 


-- 


Work Register 


- 


Work Register 


13 


R13 


t Register Save Area 


R13 


| Register Save Area 


14 


— 


Work Register 


— 


Work Register 


15 


R15 


Return Code 


R15 


Return Code 





IKJEFT45 


IKJEFT52 


Register 


Name , 


Contents 


Name 


Contents 





R0 


Work Register 


R0 


Work Register 


1: 


Rl 


} Parm List 


Rl 


4 IOPL 


2 


UPTPTR 


| UPT 


ECTPTR 


f ECT 


3 


ECTPTR 


| ECT 


PTPBPTR 


f Parm Block 


4 


R4 


Work Register 


SAVEPARM 


Users Old Address 


5 


R5 


Work Register 


SAVETPUT 


Users Output Option 


6 


— 


Work Register 


-- 


Work Register 


7 


PGPBPTR 


| PGPB 


— 


Work Register 


8 


— 


Work Register 


— 


Work Register 


9 


— 


Work Register 


-- 


Work Register 


10 


— 


Work Register 


-- 


Work Register 


11 


— 


Work Register 


— 


Work Register 


12 


— 


Work Register 


— 


Work Register 


13 


R13 


| Register Save Area 


R13 


t Register Save Area 


14 


— 


Work Register 


— 


Work Register 


15 


R15 


Return Code 


R15 


Return Code 



Figure 13. Register Usage: Terminal I/O Service Routines (Part 1 of 2) 
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IKJEFT53 


IKJEFT54 


Register 


Name 


Contents 


Name 


Contents 





R0 


Work Register 


R0 


Work Register 


1 


Rl 


t IOPL 


Rl 


\ Parm List 


2 


R2 


Work Register 


R2 


Work Register 


3 


— 


Work Register 


— 


Work Register 


4 


— 


Work Register 


— 


Work Register 


5 


— 


Work Register 


— 


Work Register 


6 


— 


Work Register 


R6 


f O.L.D. 


7 


— 


Work Register 


R7 


| Area for format msg 


8 


— 


Work Register 


-- 


Work Register 


9 


- 


Work Register 


— 


Work Register 


10 


— 


Work Register 


-- 


Work Register 


11 


— 


Work Register 


— 


Work Register 


12 


— 


Work Register 


— 


Work Register 


13 


— 


Work Register 


R13 


\ Register Save Area 


14 


~ 


Work Register 


— 


Work Register 


15 


~ 


Return Code 


R15 


Return Code 


Notes: 



B 





IKJEFT55 


IKJEFT56 


Register 


Name 


Contents 


Name 


Contents 





R0 


Work Register 


R0 


Work Register 


1 


Rl 


i Parm list or 'GET 1 info 
' in PUTGET parm block 


Rl 


| Copy of IOPL 


2 


R2 


Work Register 


PTPBPTR 


| PTPB 


3 


R3 


Work Register 


— 


Work Register 


4 


GTPBPTR 


f GTPB 


~ 


Work Register 


5 


STACKPTR 


| STACK 


~ 


Work Register 


6 


— 


Work Register 


— 


Work Register 


7 


R7 


Work Register 


— 


Work Register 


8 


— 


Work Register 


— 


Work Register 


9 


— 


Work Register 


— 


Work Register 


10 


— 


Work Register 


— 


Work Register 


11 


— 


Work Register 


~ 


Work Register 


12 


— 


Work Register 


— • 


Work Register 


13 


R13 


| Register Save Area 


R13 


| Register Save Area 


14 


— 


Work Register 


— 


Work Register 


15 


R15 


SVC Return Codes 


— 


Return Code 


Notes: 



Figure 13. Register Usage: Terminal I/O Service Routines (Part 2 of 2) 
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Routine 


Return Code 
Hexadecimal 


Meaning 


IKJEFT30 


00 


Normal. 




04 


Operation code could not be interpreted, or an invalid record was found in an in-storage 
list for an add request. 


IKJEFT35 


None 


This routine contains messages. 


IKJEFT40 


04 


An attention interrupt occurred during PUTLINE processing. 




08 


A 'nowait' option was specified and no line returned. 




OC 


The write function could not be interpreted because of faulty input parameters. 




10 


A conditional GETMAIN was executed and there was insufficient space. 


IKJEFT45 


00 


Normal. 




04 


Input line not received from terminal. 




08 


No input returned and/or no output line put out. (An attention interrupt occurred and the 
communications ECB was posted.) 




OC 


1 ) Mode message was specified, input is not from the terminal, second level messages are 
chained and user has specified no pause. 

2) Prompt message was specified and either the user has specified no prompt or input is 
from a command procedure. 




10 


Nowait was specified for the TPUT option and the output was not sent and input not received. 




14 


Input was not received. 




18 


Invalid parameters. 




1C 


A conditional GETMAIN was issued and no space was available. 


IKJEFT45 


00 


Normal. 




04 


A line was successfully obtained from an in-storage list. 




08 


The communications ECB was posted and there was no successful completion of a TGET. 




OC 


1 ) For a prompt request — either the UPT specified no prompt, or the current source of 
input was a procedure. 

2) For a mode request — the current source is non-terminal; no pause was specified in the 
UPT and a second level informational chain exists. 




10 


The nowait option had been specified and no space was available in the TIOC output buffer. 




14 


The nowait option had been specified and no line was available in the TIOC input buffer. 




18 


PUTGET input parameters were invalid. 



Figure 14. Return Codes: Terminal I/O Service Routines (Part 1 of 2) 
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Routine 


Return Code 
Hexadecimal 


Meaning 


IKJEFT45 


1C 


A GETMAIN was issued and no space was available. 


(continued) 






IKJEFT52 


00 


Normal. 

The error codes provided by TERMOUT are returned to the caller by this routine. 


IKJEFT53 


00 


Normal. 

No Error Codes. 


IKJEFT54 


00 


Normal. 




OC 


Invalid parameters. 




10 


GETMAIN failure. 


IKJEFT55 


00 


A line was obtained from the terminal. 




04 


A line was obtained from a list. 




08 


An ECB was posted as a result of an attention interrupt. 




OC 


"nowait " was specified as a TGET option and a line could not be obtained from TGET. 




10 


An EOD (End of Data) condition from a list. 




14 


Invalid parameters were supplied to TGET or to the service routine. 




18 


A conditional GETMAIN was executed and no space was available. 


IKJEFT56 


00 


Normal. 




04 


Attention interruption — ECB posted. 




08 


NOWAIT specified, no line put out. 




OC 


Invalid parameters. 



B 



Figure 14- Return Codes: Terminal I/O Service Routines (Part 2 of 2) 
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Part 3: Command SCAN and PARSE Service Routines 



E 
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Section 1: Introduction 



Command Scan and Parse search the Command Buffer for TSO commands and 
their parameters. In general. Command Scan is invoked by the Terminal 
Monitor Program while Parse is invoked by TSO command processors. 
Command Scan is also invoked by the TEST command processor and by other 
TSO command processors that process subcommands. 

Command Scan searches the Command Buffer for question mark, command 
name, or null line. If syntax checking is requested. Command Scan 
checks the command name to be sure that it starts with an alphabetic 
character and contains no more than eight alphanumeric characters. If 
syntax checking is not requested. Command Scan assumes that the first 
alphabetic character in the buffer is the start of a command name. 
Command Scan translates the command name to uppercase and updates the 
buffer offset to point to the first parameter or to the end of the 
buffer. 

Parse searches the Command Buffer for command parameters, checks them 
for correct syntax, translates them to uppercase, and presents them to a 
user-supplied exit routine for validity checking. If a parameter is 
invalid, or if a required parameter is missing. Parse prompts the 
terminal user to enter the parameter or supplies a default value. 

As supplied with TSO,, the Command Scan and Parse service routines 
will reside in SYS1 . LINKLIB and will execute in the user's foreground 
region with the protection key assigned to that region. The 
installation may choose to make Command Scan and Parse resident in the 
TSO Link Pack Area (TSLPA) in the region assigned to the Time Sharing 
Control Task (TSCT) . 



B 
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Section 2: Method of Operation 



This section describes the method of operation of the Command Scan and 
Parse service routines. It includes six method of operation diagrams: 

• Method of Operation Diagram 13 (f oldout) : Command Scan and Parse 
Service Routines (Overview) — which shows the basic functions 
performed by Command Scan and Parse. 

• Method of Operation Diagram 14 (f oldout): Command Scan Service 
Routine — which shows how Command Scan searches the Command Buffer 
for TSO commands. 

• Method of Operation Diagram 15 (f oldout): Parse Service Routine — 
which shows how Parse searches the Command Buffer for TSO command 
parameters. 

• Method of Operation Diagram 16 (foldout) : Parse Initialization — 
which shows how Parse sets up the Parameter Descriptor List (PDL) . 

• Method of Operation Diagram 17 (foldout) : Searching for IKJPARS 
Positional Parameters — which shows how Parse searches the Command 
Buffer for IKJPARS positional parameters. 

• Method of Operation Diagram 18 (foldout) : Searching for IKJPARS2 
Positional Parameters — which shows how Parse searches the Command 
Buffer for IKJPARS2 positional parameters. 

• Method of Operation Diagram 19 (foldout) : Searching for Keyword 
Parameters and Subfields — which shows how Parse searches the 
Command Buffer for keyword parameters and subfields consisting of 
positional and/Ox keyword parameters. 

Each method of operation diagram includes a cross-reference table to 
help you find the appropriate program description, flowchart, or 
assembly listing. 



Overview 

Method of Operation Diagram* 13 (foldout) shows the shows the basic 
functions of Command Scan and Parse and their use by the Terminal 
Monitor Program, the TEST command processor, and other TSO command 
processors. Briefly, here is what happens: 

• The Terminal Monitor Program (or TEST command processor) obtains a 
line of input which is assumed to contain a TSO command and its 
parameters • 

• The Terminal Monitor Program (or TEST command processor) links to 
Command Scan and passes it the address of the buffer. 

• Command Scan searches the buffer for a command name, updates the 
buffer offset to point to command parameters (if any), and returns 
control to the calling program. 

• The Terminal Monitor Program (or TEST command processor) receives 
the address of the command name and gives control to the appropriate 
TSO command processor. 
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• The TSO command processor links to Parse and passes it the address 
of the buffer. 

• Parse searches the buffer for parameters, builds a list of 
parameters found, and returns control to the calling program. If 
required parameters are missing. Parse prompts the terminal user to 
enter the parameters or supplies default values- 

• The TSO command processor processes the command according to the 
parameters received. 

• When the TSO command processor completes, it returns control to the 
Terminal Monitor Program (or TEST command processor) and the 
sequence is repeated. 



Command Scan Service Routine 

Method of Operation Diagram 14 (foldout) shows how Command Scan searches 
the buffer for question mark, command name, or null line. It includes a 
cross-reference table to help you find the appropriate program 
description, flowchart, or assembly listing. 



ENTRY TO COMMAND SCAN 

Command Scan is entered by a LINK (or LOAD/CALL) macro instruction to 
entry point IKJSCAN in load module IKJSCAN. 



INPUT TO COMMAND SCAN 

On entry to Command Scan, register 1 points to the Command Scan 
Parameter List (CSPL) which includes the following information: 

• The address of the User Profile Table (UPT). 

« The address of the Environment Control Table (ECT) . 

• The address of the calling routine's Event Control Block (ECB) . 
(The addresses of the UPT, ECT, and ECB are not used by Command 
Scan.) 

• The address of a Flag Word set as follows: 

| Flag | Meaning | 

I f ., 

| X'OO' I Syntax check the command name | 

j X f 80' | Do not syntax check the command name | 

L i . : J 

(See "Checking Command Syntax" in this section.) 

• The address of the Command Scan Output Area (CSOA) which is set by 
Command Scan to indicate the results of the search. (See "Output 
from Command Scan" in this section.) 

• The address of the Command Buffer (C3UF). 
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SEARCHING FOR COMMANDS 

Command Scan searches the buffer for commands beginning at the current 
buffer offset. If the first character is a question mark, no further 
searching is done. Otherwise, the buffer is searched until a command 
name is found or until the end of the buffer is reached. The command 
name is assumed to start with the first non-separator character and to 
end just before the next separator character. See Figure 15 for a 
definition of character types recognized by Command Scan and Parse. 

Unless syntax checking is requested, no further checking is done and 
Command Scan assumes the command name is correct. 

CHECKING COMMAND SYNTAX 

The calling program can request syntax checking by setting the flag word 
to X'OO*. (See "Input to Command Scan" in this section.) 

If syntax checking is requested, the command name must meet the 
following requirements: 

• The first character must be an alphabetic or a national character. 

• The other characters must be alphabetic or numeric. 

• The length must not exceed eight characters. 

• The delimiter must be a separator character. 

See Figure 15 for a definition of character types recognized by Command 
Scan and Parse. 



TRANSLATING COMMANDS TO UPPERCASE 

Command names are translated to uppercase, 
buffer are not translated. 



The other characters in the 



OUTPUT FROM COMMAND SCAN 

On return from Command Scan, the Command Scan Output Area (CSOA) 
contains the following information: 

• The address of the command name in the buffer. 

• The length of the command name. 

• Flags set as follows: 



| Flag Setting 



Result of Scan 



I 



Buffer Offset 



I 



k + + _ ^ 



X'80' 

x'ao* 

X'20 f 
X'10' 

x'os 1 



I Command name is valid; 

| buffer includes parameters. 

| Command name is valid; 
I buff er does not include 
| parameters. 

Command name is a question 
| mark . 

| Buf f er contains null line; 
| no non-separator characters, 

| Command name is 
syntactically invalid. 



| Points to first parameter. 
| Points to end of buffer. 

| Unchanged. 

| Points to end of buffer. 

| Unchanged. 



L X -L J 
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CHARACTER 


CHARACTER TYPE 


Separator 


National 


Alphabetic 


Numeric 


Command 
Delimiter 


Delimiter 


Special 


Horizontal Tab 


HT 


X 








X 






Blank 


-fe 


X 








X 






Comma 


/ 


X 








X 






Dollar Sign 


5 




X 












Number Sign 


# 




X 












At Sign 


'K 

a -z 
A-Z 
0-9 




X 


X 
X 


X 








New line 


NL 










X 


X 




Period 












X 




X 


Left parenthesis 


( 










X 




X 


Right parenthesis 


) 










X 




X 


Ampersand 


& 










X 




X 


Asterisk 


* 














X 


Semicolon 


; 










X 


X 




Minus sign, hyphen 


- 










X 




X 


Slash 


/ 










X 


X 




Apostrophe 


i 










X 




X 


Equal sign 


= 










X 




X 


Cent sign 


* 




X 










X 


Less than 


< 














X 


Greater than 


> 














X 


Plus sign 


+ 














X 


Logical OR 


i 














X 


Exclamation point 


! 




X 










X 


Logical NOT 


- 














X 


Percent sign 


% 














X 


Dash 


- 














X 


Question mark 


? 














X 


Colon 
















X 


Quotation Mark 


' 




X 










X 



E 



Figure 15. Character Types Recognized by Command Scan and Parse 
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RETURN TO CALLING PROGRAM 

Command Scan issues a RETURN macro instruction to return cc-ntrol to the 
calling program. At exit, register 15 contains One of the following 
return codes. 

r T T 

| Code | Meaning | 

j. + ^ 

| X^ 1 | No errors found. | 

II I 

| X f 4' | Invalid input parameters. | 

L X > . . J 

Parse Service Routine 

Method of Operation Diagram 15 (foldout) shows the basic functions of 
Parse and their use by the TSO command processors. It includes a 
cross-reference table to help you find the appropriate program 
description, flowchart, or assembly listing. 

Parse searches the Command Buffer for two main classes of parameters: 

• Positional parameters — which must appear in a certain order* 

• Keyword parameters — which can appear in any order but must follow 
all positional parameters. Keyword parameters may have subfields 
which include positional parameters and/or keyword parameters. 

Briefly, here is what happens: 

• The TSO command processor builds a Parameter Control List (PCD that 
describes the parameters expected. That is, it describes acceptable 
values and defaults. 

• The TSO command processor links to Parse and passes it the address 
of the Parse Parameter List which contains the address of the 
Parameter Control List, the address of the command buffer, and the 
address of a word where Parse will put the address of the Parameter 
Descriptor List (PDL) . 

• Parse searches the command buffer for correct parameters and builds 
a Parameter Descriptor List (PDL) , that describes the parameters 
found . 

• Parse places the address of the Parameter Descriptor List (PDL) in 
the word pointed to by the Parse Parameter List and returns control 
to the TSO command processor. 

Other points made in the simplified method of operation diagram will be 
briefly mentioned here: 

• The TSO command processor uses system macro instructions to build 
the Parameter Control List (PCL) . (See Figure 16 for a brief 
description of these macro instructions.) Each macro instruction 
generates one Parameter Control Entry (PCE). 

• The TSO command processor uses system macro instruction IKJRLSA to 
free main storage obtained by Parse for the Parameter Descriptor 
List (PDL) and for buffers used when prompting the terminal to 
re-enter parameters. 
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I Macro Instruction j 



Description 



IKJPARM 



IKJIDENT 



IKJPOSIT 



IKJTERM 



+- 



IKJGPER 



IKJRSVWD 



IKJKEYWD 



k- 



IKJNAME 



IKJSUBF 



Marks the beginning of the PCL. Gives the 
length of PCL and length of PDL. Gives offset 
to next IKJKEYWD, IKJSUBF, or IKJENDP PCE. 



—I 



H 



Describes a positional parameter in the form of 
a character string with optional restrictions on 
the first character, other characters, and 
length. 



Describes a positional parameter which includes 
a delimiter as part of its syntax- 



H 



Describes a positional parameter that may be a 
constant, variable or statement number. 



Describes an expression consisting of two 
operands and an operator. 



■H 



Is used with the IKJTERM macro to describe a 
figurative constant, or with the IKJOPER macro 
to describe the operator in an expression, or by 
itself to describe a reserved word parameter 



Marks the beginning of a keyword field. 
Specifies a default, if there is one, for the 
field. 



H 



Describes one of the eligible names for a 
keyword or reserved word field. Specifies the 
options associated with this name. 



Marks the beginning of a subfield and the end of 
a previous subfield. Gives offset to next 
IKJKEYWD, IKJSUBF, or IKJENDP PCE. 



H 



IKJENDP 



I Marks the end of the PCL. 



-f 



Note s For a more complete discussion of the Parse macros, refer to 
the publication, IBM System/360 Operating Systems Time Sharing 
Options Guide to Writing a Terminal Monitor Program or a Command 



Processor , GC28-6764. 



B 



Figure 16. Brief Description of Parse Macro Instructions 



ENTRY TO PARSE 

Parse is entered by a LINK (or LOAD/CALL) macro instruction to entry 
point IKJPARS in load module IKJPARS. 



INPUT TO PARSE 

On entry to Parse, register 1 points to the Parse Parameter List (PPL), 
which includes the following informations 

• The address of the User Profile Table (UPT) . 

• The address of the Environment Control Table (ECT). 

• The address of the calling routine f s Event Control Block (ECB) . 
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(The address of the UPT, ECT, and ECB are not used by Parse.) 

• The address of the Parameter Control List (PCL). (See below.) 

• The address of a word where Parse puts the address of the Parameter 
Descriptor List (PDL) . 

(See "Output from Parse" in this section.) 

• The address of the Command Buffer (CBUF). 

• The address of a user work area. 

The Parameter Control List is the major input to Parse. It consists 
of Parameter Control Entries (PCEs) that describe the parameters 
expected and determine the operations to be performed by Parse. 



SET UP AND INTIALIZATION 

When Parse locates the IKJPARM PCE, it performs various initialization 
functions. 

Method of Operation Diagram 16 (foldout) shows what Parse does during 
set up and initialization. It includes a cross-reference table to help 
you find the appropriate program description, flowchart, or assembly 
listing. 

Briefly, here is what happens: 

• Parse gets main storage for the Parameter Descriptor List (PDL) and 

| puts its address in the answer area provided by the calling routine. 
See "Input to Parse" in this section. 

• Parse gets main storage for the Parse Work Area (PWORK) and first 
Recurse Work Area (RWORK) and initializes them. Another Recurse 
Work Area will be obtained each time a subfield is processed. 

• Parse loads the PUTLINE and PUTGET service routines. 

When initialization is completed. Parse is ready to search for 
positional parameters. 

SEARCHING FOR POSITIONAL PARAMETERS 

Parse recognizes two classes of positional parameters: 

• Simple ones — non-delimiter dependent parameters. These are 
| described by IKJIDENT PCEs. 

• Complicated ones — delimiter dependent parameters. These are 
described by IKJPOSIT, IKJTERM, IKJOPER or IKJRSVWD PCEs. 

See Figure 17 for a description of each type of positional parameter. 

Method of Operation Diagram 17 (foldout) shows how Parse searches for 
positional parameters described by IKJIDENT, IKJPOSIT, IKJTERM, IKJOPER 
or IKJRSVWD PCEs. It includes a cross-reference table to help you find 
the appropriate program description, flowchart, or assembly listing. 

Briefly, here is what happens: 

• Parse locates an IKJIDENT, IKJPOSIT, IKJTERM, IKJOPER or IKJRSVWD 
PCE and branches to the appropriate processing routine. 
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Parse searches the buffer for the parameter. If the parameter is 
missing, the PCE is checked to see if the parameter is required or 
if there is a default. 

- If the parameter is required, the terminal is prompted for the 
parameter. 

- If there is a default t the default is supplied. 

- If the parameter is not required. Parse locates the next PCE. 

If the parameter is correct. Parse builds a PDE for the parameter 
and translates the parameter to uppercase. If a list is being 
processed. Parse builds a PDE for each element in the list. 

If the calling routine has specified a validity check exit, Parse 
gives control to a validity check exit routine- If a range is being 
processed, the complete range is passed to the validity check exit 
routine. If a list is being processed, each element in the list is 
passed to the validity check exit routine. 

- If an error is found. Parse prompts the terminal user to reenter 
the parameter, and erases the invalid PDE. 



h 



Macro 
Instruction 



IKJIDENT 



IKJPOSIT 



Type of 
Parameters 



Positional 

character 

string 



Any of the 
following: 



I" 



DELIMITER 



Description 



The IKJIDENT PCE describes a positional 

parameter in the form of a 

character string with optional restrictions on 

the first character, other characters, and 

length. The IDENT parameter may be an 

asterisk. 

The following character types are recognized 
for the beginning character and additional 
characters: 

ALPHA — An alphabetic or national character. 

NUMERIC — A digit, 0-9. 

ALPHANUM — An alphabetic character, national 
character, or digit. 

ANY -- Any character other than a blank, coma, 
tab, semicolon, or carriage return character. 



The IKJPOSIT PCE describes a positional 
parameter of one of the following types: 



-H 



A delimiter parameter is a self -defining 
delimiter character used to delimit a string. 
It may be any character other than an asterisk, 
left parenthesis, right parenthesis, semicolon, 
blank, comma, tab, carriage return character, 
or digit. A self- defining delimiter character 
is represented by the symbol . The delimiter 
parameter is used only conjunction with the 
string parameter discussed below. 



E 



Figure 17. Types of Positional Parameters (Part 1 of 9) 
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Macro 
Instruction 






IKJPOSIT 
( cont . ) 



Type of 
Parameters 



STRING 
( cont . ) 



| 

VALUE 



ADDRESS 



Description 



A string is the group of characters between two 
alike self-defining characters, such as: 
A string A 

or the group of characters between a 
self -defining delimiter character and the end 
of a logical line, such as: 
A string 

The same self-defining delimiter character may 
be used to delimit two continuous strings, such 
as: 

A string A string A 

A string A string 

A null string is defined as two contiguous 
delimiters or a delimiter and the end of the 
logical line. If the string is required, a 
null string must be entered as two contiguous 
delimiters. 

If the next nonblank character scanned is not a 
valid self-defining character, the string is 
considered missing. A string received from a 
prompt or default must not include the 
delimiters. 

If the delimiter is a quote and the SQSTRING 
flag is on in the PCL, the string is processed 
as a quoted string (see QSTRING below). 



H 



A value consists of type- character followed by 
a string enclosed in apostrophes, such as: 
X 1 string 1 

The type- character must be an alphabetic or 
national character. The string may consist of 
any combination of enter able characters of any 
length. The ending apostrophe may be left off 
the string in which case the end of the string 
is the end of the logical line. A message is 
issued indicating the end apostrophe is 
assumed. Two successive single apostrophes are 
considered part of the string, such as Ca'^', 
The value is considered missing if the first 
character is not an alphabetic character of if 
the following character is not an apostrophe. 
The type-character preceding the quoted string 
is always translated to uppercase. 



There are several forms of the address 
parameter: an absolute address, a relative 
address, a general register address, a 
floating-point register address, a symbolic 
address, a qualified address, an indirect 
address, and an address expression. 

Absolute address — One to six hexadecimal 



digits followed by a plus sign. 

l x ± 

Figure 17. Types of Positional Parameters (Part 2 of 9) 
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Macro 
Instruction 



IKJPOSIT 
(cont. ) 



Type of 
Parameters 



ADDRESS 
(cont. ) 



JL 



Description 



Relative address — One to six hexadecimal 



digits preceded by a period. 

General register address — A decimal integer 
in the range 0-15 followed by the letter W R W . 
"R M may be upper case or lower case. 

Floating-point register address — An even 
decimal integer in the range 0-6 followed by 
the letter "D" (for double precision) or the 
letter "E" (for single precision) • The n E" and 
"D" may be upper case or lower case. 

Symbolic address — Any combination of the 



alphameric characters and the break character 
up 31 characters in length of which the first 
character is an alphabetic or national 
character. 

Qualified address — A qualified address has 
the following format: 

lloadname ] . entryname . symbolic 

address 

or 
.relative 
[ ] - Optional address 

loadname 

any combination of alphameric characters up 
to eight characters in length of which the 
first character is an alphabetic or national 
character. 

entryname 

same syntax as a load.name f (but must be 
preceded by a period as illustrated above). 

symbolic address 

defined above, (but must be preceded by a 
period as illustrated above) . 

relative address 

defined above , (but must be preceeded by a 
period, as illustrated above). 

Indirect address — An indirect address is an 



absolute, relative, symbolic, or general 
register address followed by from 1 to 255 
percent signs, such as: 

Address expression — An address expression has 



the following format: 

address [%. . . ]±expression value [%. . . ] 
Clexpression value [%...]...] 



E 



Figure 17. Types of Positional Parameters (Part 3 of 9) 
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Macro 
Instruction 



IKJPQSIT 
( cont . ) 



Types of 
Parameters 



ADDRESS 
( cont . ) 



PSTRING 



Description 



address 

an absolute, relative or symbolic address, 
address may be used but it must have 
indirect address notation, that is, it must 
be followed by at least one percent sign. 

expression value 

one to six hexadecimal digits or one to six 
decimal digits followed by the letter "N n . 
"N" may be uppercase or lowercase. 

There is no limit to the number of 
expression values in the address expression. 

Blanks are not allowed within any form of the 
address parameter. 

[ ] - Optional 



A parenthesized string is a string of 
characters enclosed by a balanced set of 
parentheses, such as: 

(string) 

The string may consist of any combination of 
enterable characters of any length, with one 
restriction: If it includes parentheses, they 
must be balanced. The enclosing right 
parentheses may be eliminated if the string 
ends at the end of the logical line. A message 
is issued indicating it is assumed. 

A null string is defined as a left parenthesis 
followed by a right parentheses or a left 
parentheses at the end of the logical line. It 
may be entered in either form at all times. 

A parenthesized string received from a prompt 
or default must include at least the enclosing 
left parenthesis. 



USERID | A userid consists of an identification 

optionally followed by a slash and a password. 
The format is: 

identification [/password] • 

identification 

any combination of alphameric characters up 
to seven characters in length the first of 
which must be an alphabetic or national 
character. 

password 

any combination of alphameric characters up 
to eight characters in length the first of 
which must be an alphabetic or national 
character. 



Figure 17. Types of Positional Parameters (Part 4 of 9) 
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Macro 
Instruction 



IKJPOSIT 
(cont. ) 



h- 



Type of 
Parameters 



USERID 
(cont. ) 



DSNAME 



Description 



Blanks, can be inserted between the 
identification and the slash and between the 
slash and the password. 

If just the identification is entered, no 
prompting for the password takes place whether 
or not the user id parameter is required. If 
the identification is entered followed by a 
slash in bypass mode. The terminal user may 
enter a password or reply with a null line. 
See PUTGET Service Routine External 
specifications for an explanation of prompting 
in bypass mode. 



The data set name parameter has three possible 
formats : 

dsname[ (membername) ] [/password] 

[dsname] (membername) [/password] 

"dsname [membername] f [/password] 

[ ] - Optional 

dsname 

a qualified or unqualified name. An 
unqualified name is any combination of 
alphameric characters up to eight characters 
in length the first of which must be an 
alphabetic or national character. A 
qualified name is made up of sevral 
unqualfied names; each name is separated by 
a period. A qualified name including the 
periods, can be up to 44 characters in 
length. 

membername 

one to eight alphameric characters up to 
eight characters in length, the first of 
which must be an alphabetic or national 
character. 

The data set name parameter is considered 
missing if the first character is not an 
apostrophe, alphabetic or national character, 
or left parenthesis. 

The password may be any alphameric combination 
of eight or fewer characters. If the slash and 
password are not entered, no prompting for the 
password takes place whether or not the dsname 
parameter is required. If the slash is entered 
and not the password, a prompt for the password 
occurs in bypass mode. The terminal user may 
enter a password or reply with a null line. 
See PUTGET Service Routine for an explanation 
of prompting in bypass mode. 



E 



Figure 17. Types of Positional Parameters (Part 5 of 9) 
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Macro 
Instruction 



Type of 
Parameters 



Description 



-H 



IKJPOSIT 
(cont.) 



DSTHING 



QSTRING 



| 

SPACE 



A data set thing is a dsname parameter as 
defined above except that an asterisk may be 
substituted for an unqualified name and for 
each qualifier of a qualified name,. 



-H 



A quoted string is a string of characters 

•string 1 

The string may consist of any combination of 
enterable characters of any length, with one 
restriction: If the user wishes to enter 
apostrophes within the string f two successive 
apostrophes must be entered for every 
apostrophe desired. One of the apostrophes is 
removed during the parse- The ending 
apostrophe may be eliminated if the string ends 
at the end of the logical line. A message is 
issued indicating the end apostrophe is 
assumed. 

A null quoted string is defined as two 
contiguous apostrophes or an apostrophe at the 
end of the logical line. It may be entered in 
either form at all times. 

A quoted string received from a prompt must 
include at least the enclosing left apostrophe. 



This is a special purpose parameter for the TSO 
Edit command. It allows a string parameter 
which directly follows a command name, to be 
entered without a preceding self -defining 
character. If the delimiter of the command 
name is a tab f the tab is the first character 
of the string. The string always ends at the 
end of the logical line. The space parameter 
must be followed by a string parameter. 



'1 



H 



IKJTERM 



Any of the 

following 

\ 

CONSTANT 



The IKJTERM PCE describes a positional 
parameter of one of the following types: 



There are several forms of the constant 
parameter. 

Fixed-point numeric literal - Consists of a 



-H 



string of digits (0 - 9) preceded optionally by 
a sign (+ or -) , such as: 

+1234.43 

This literal may contain a decimal point 
anywhere in the string except as the rightmost 
character. The total number of digits can not 
exceed 18. 
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Macro 
Instruction 



IKJTERM 
( cont - ) 



Type of 
Parameters 



CONSTANT 
( cont . ) 



| 

VARIABLE 



Description 



Floating-point numeric literal - has the form: 

+1234.56E+10 

This literal is a string of digits (0-9) 
preceded optionally by a sign (+ or -) and must 
contain a decimal point- This is immediately 
followed by the letter E and then a string of 
digits preceded optionally by a sign. Embedded 
blanks are not allowed. The string of digits 
preceding the E cannot be greater than 16 and 
the string following the E cannot be greater 
than 2. 

Non- numeric literal - Consists of a string of 



characters from the EBCDIC character set 
excluding the apostrophe and enclosed in 
apostrophes such as : 

•Numbers (123) and letters are OK) 1 

The length of the string excluding apostrophes 
may be from 1 to 120 characters in length. 

Figurative constant - May be one of a set of 
keywords supplied by the caller of the Parse 
routine such as: 

testl23 

A figurative constant consists of a string of 
characters up to a length of 255. Embedded 
blanks are not allowed. All characters of the 
EBCDIC set are allowed except the blank, comma, 
tab, semicolon, and carriage return. 



A variable parameter has the form: 

[program-id.] data-name OF qualification 

IN 
(subscript) 

Data- name - consists of a maximum of 3 



Figure 17. 



characters of the set: 

A through Z (alphabetic) 
through 9 (numeric) 
- (hypen) 

such as : 

My-dataset-123 

The data-name cannot begin or end with a hyphen 
and must contain at least one alphabetic 
character. 

Types of Positional Parameters (P^rt 7 of 9) 



B 



-+ 
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Macro 
Instruction 



IKJTERM 
( cont . ) 



Types of 
Parameters 



VARIABLE 
( cont . ) 



| 

STATEMENT 
NUMBER 



Description 



Program-id - Consists of the first eight 
characters of a program identifier followed by 
a period. The first character must be 
alphabetic (A - Z) and the remaining characters 
alphameric (A - Z or - 9) such as: 

Here55.My-dataset 

Qual i f ica tion - Is applied by placing after a 



i 



data- name one or more data-name(s) preceded by 
the reserved words IN or OF such as: 

My-dataset-123 OF Your-dataset-456 

The number of qualifiers is limited to 255. 



Subscript - Consists of a data- name with 
subscripts enclosed in parentheses following 
the data-name such as: 



Your-dataset-456 (My-dataset-123) 

A separator between the data-name and 
subscripts is optional. Subscripts are a list 
of constants and/ or variables. The number of 
subscripts is limited to 3. 



A statement number has the following form: 

[program-id . ] line number [ -verb number] 
An example is: 
Here. 23. 7 



Program-id - Consists of the first eight 
characters of a program identifier followed by 
a period. The first character must be 
alphabetic (A - Z) and the remaining characters 
alphameric (A- Z or 0-9). 



Line number - Consists of a string of digits (0 
- 9) and cannot exceed a length of 6 digits. 



Verb number - Consists of one digit (0 - 9) 



Figure 17. 



preceded by a period. 
Embedded blanks are not allowed. 
Types of Positional Parameters (Part 8 of 9) 
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Macro 
Instruction 



IKJOPER 



Types of 
Parameters 



EXPRESSION 



Description 



The IKJOPER PCE describes an expression that 
has the form: 

(operandi operator operand2) 

The operator in an expression shows a 
relationship between the operands, such as: 

(abc equals 123) 

An expression must be enclosed in parentheses. 
An expression is defined by the IKJOPER macro. 
The operands are defined by the IKJTERM macro 
and the operator by the IKJRSVWD macro. 



— I 



IKJRSVWD | RESERVED |A reserved word has three uses depending on 
WORD | the presence or absence of operands on the 
IKJRSVWD macro. The uses are: 

a. When used with the RSVWD keyword on the 
IKJTERM macro, the IKJRSVWD macro identifies 
the beginning of a list of reserved words 
anyone of which can be entered as a 
constant. 

b. When used with the RSVWD keyword on the 
IKJOPER macro, the IKJRSVWD macro identifies 
the beginning of a list of reserved words 
anyone of which can be entered as an 
operator in an expression. 

c. When used by itself, the IKJRSVWD macro 
defines a positional reserved word 
parameter. 

Note : The IKJRSVWD macro is followed by a 
list of IKJNAME macros that contain all of 
the possible reserved words used as 
constants or operators. 

. . j 

Figure 17. Types of Positional Parameters (Part 9 of 9) 

Lists and Ranges 

Some positional parameters may be entered in the form of a list or a 
range or a list of ranges. 

• A list is one or more of the same type of positional parameter 
enclosed in parentheses- For example: (parameter parameter) 

• A range is two positional parameters separated by a colon. for 
example : parameter : parameter 

The following positional parameters may be used in a list form: 

I value, address, user id, dsname, dsthing, positional character string, 
constant, statement number and variable. A list may not contain items 
with unmatched left and right parentheses except that the closing right 
parenthesis may be omitted at the end of a logical line. 

The following positional parameters may be used in the form of a 
range or a list of ranges: address, value, positional character string, 
| constant, statement number and variable. 



E3 
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1 x" 


04' 


1 x 1 


08 f 


1 x« 


0C 



Validity Check 

After the PDE is built, the PCE is checked to see if there was a 
validity check routine and, if so f the validity check routine is entered 
by a branch and link. 

At entry to the validity check routine, register 1 points to the 
Validity Check Parameter List (VCEPARAM) which contains the following 
information: 

• The address of the PDE. 

• The address of a work area built by the TSO command processor. 

• The address of a second-level message (provided by the Validity 
Check Routine) which is initialized to X'FFOOOOOO*. 

On return to Parse, register 15 contains the following return code: 

r t ■ 1 

| Code | Meaning | 

! + _ < 

| The parameter is valid, continue. 

| The parameter is invalid, write an error message, prompt the 

| terminal user to reenter it. 

| The parameter is invalid, an error message was issued, prompt 

| the terminal user to reenter it. 

| Error forces termination. Cleanup and return to TSO command 

| processor. 



SEARCHING FOR KEYWORD PARAMETERS AND SUBFIELDS 

When Parse locates an IKJKEYWD PCE, it searches the command buffer for a 
keyword field. The eligible names for a keyword are specified by 
IKJNAME PCEs. Keyword parameters may have subfields that contain 
positional and/or keyword parameters. If so, an IKJSUBF PCE marks the 
beginning of the subfield. 

Method of Operation Diagram 19 (foldout) shows how Parse searches for 
keyword parameters described by IKJKEYWD and IKJNAME PCEs and for 
subfields specified by IKJSUBF PCEs. It includes a cross-reference 
table to help you to find the appropriate program description, 
flowchart, or assembly listing. 

Briefly, here is what happens : 

• Parse locates an IKJKEYWD PCE and branches to the keyword processing 
routine (KEYWDP) . 

• The keyword processing routine searches the buffer for a keyword and 
compares it to each of the eligible names specified by IKJNAME PCEs. 

• If a match is found. Parse builds an IKJKEYWD PDE and checks the 
IKJNAME PCE for a subfield. If no match is found, or if more than 
one match is found. Parse prompts the terminal user to reenter the 
parameter. 

• If the keyword has a subfield, Parse searches for parameters in the 
subfield in exactly the same way that it searches for parameters in 
a field. When an IKJSUBF PCE or IKJENPD PCE is reached. Parse 
returns to processing the main part of PCL. 
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• When all of the keyword fields have been searched for, the keyword 
processing routine checks each IKJKEYWD PCE to see if it has been 
filled. If not f it supplies a default value. (Keyword parameters 
are never required.) 

• When an IKJENDP PCE is reached. Parse returns to the calling 
routine . 

| Other points made in Method of Operation Diagram 19 (foldout) are 
briefly mentioned here: 

• Keyword parameters may be entered in any order. They must follow 
all positional parameters. The first character of the keyword must 
be alphabetic; all other characters must be alphameric. Maximum 
length is 31 characters. See Figure 15 for a definition of 
character types. 

• Parse lets the terminal user enter the fewest number of characters 
required for uniqueness. If the abbreviation is not unique. Parse 
writes an "ambiguous keyword" message and prompts the terminal user 
to reenter the parameter. 

• When the terminal user enters conflicting keywords, the last keyword 
found overrides the previous ones. Note that the last keyword found 
may not be the last keyword entered. If the terminal user is 
prompted for one parameter and enters other parameters. Parse checks 
these parameters before continuing to search for parameters in the 
Command Buffer. 

Subfields 

Keyword parameters may have other parameters associated with them. In 
this case, those parameters are enclosed in parentheses immediately 
following the keyword and for the purpose of syntax checking are known 
as a subfield. In the following subfield, positionall and keyword2 are 
parameters in the subfield of keyword 1: 

keyword 1 (positionall keyword 2) 

The parameters in the subfield are searched for in exactly the same way 
as before. The enclosing right parenthesis can be omitted at the end of 
a line. 



B 
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PROMPTING AND DEFAULTING 

Parse searches the command buffer until it reaches the end of the buffer 
If an error is found, Parse gets the address of a default value or 
prompts the terminal user to reenter the parameter. Parse scans the new 
data (with further prompting or defaulting, if necessary) before 
continuing to search the command buffer - 

Figure 18 shows the scanning sequence for a Command Buffer that 
contains two errors. Note that a third error is found in the data 
received from the second prompt. The search continued until 
end-of- buffer was reached. 



LEGEND: 

*~ direction of scan 



X error 



Reply to second prompt 



Reply to first prompt 
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Figure 18. Scanning Sequence for Prompting and Defaulting 



158 Terminal Monitor Program (Release 21-6) 



Parse keeps track of the data obtained by prompting or defaulting by 
means of an input stack as shown in Figure 19. Each element on the 
stack contains a pointer to the last character searched and a pointer to 
the end of the buffer- 
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Buffer ^ 






Parse Input Stack 


Already scanned 


To be scanned 






Current Offset 
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Figure 19. Keeping Track of Buffers with the Parse Input Stack 

During initialization , Parse sets up an input stack large enough to 
hold ten elements. If more elements are needed. Parse sets up new 
stacks and backward- chains them to the first stack. The Current Input 
Pointer (PIPDLCUR) points to the current stack while the Current Index 
(PIPDLX) give the offset into the stack. 



MESSAGES FROM PARSE 

Parse uses the PUTLINE and PUTGET service routines to write messages to 
the terminal. 

PUTLINE is used to write informational messages. 

PUTGET is used to prompt the terminal user for a line of input. 

In most cases, PUTLINE and PUTGET are used in succession. For example: 

entered from terminal dataset% 

issued by PUTLINE INVALID DSNAME, dataset% 

issued by PUTGET REENTER - 

entered from terminal datasetl 



Section 2: Method of Operation 159 



OUTPUT FROM PARSE 

Parse places the address of the Parameter Descriptor List (PDL) in the 
area provided by the calling routine. See "Input to Parse" in this 
section. 

The PDL consists of Parameter Descriptor Entries (PDEs) that describe 
the parameters found in the Command Buffer or obtained by prompting or 
by supplying default values, 

RETURN TO CALLING PROGRAM 

Parse issues a RETURN macro instruction to return control to the calling 
program. At exit, register 15 contains one of the following return 
codes: 

r t 1 

| Code | Meaning | 

I + ^ 

| Normal completion 

| Unable to prompt for valid parameter 
| Processing interrupted by attention interruption. 
| Invalid parameters from calling routine. 
| No storage available for PDL 
| Validity check routine requested termination 

| Invalid parameters passed to an IKJTERM, IKJOPER or IKJRSVWD 
| macro instruction. 
-A . . 
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IKJSCAN 



Command Scan 
Service Routine 


IKJEFP20 


H Common 
^ Subroutines 






IKJEFP3 









1 Command 
I Scan 











Load Module Names 
IKJPARS 
IKJSCAN 
IKJPARS2 



IKJPARS 



Parse Service 
Routine 



i 



IKJEFPOO 



Parse 
CSECT 1 



IKJEFP01 




Parse 
CSECT 2 



IKJEFP02 




Parse 
CSECT 3 



i 



IKJEFP10 



Parse 
Messages 



t 



IKJEFP20 



Common 
Subroutines 



Normal Residence 
SYS1.UNKLIB 
SYSl.UNKUB 
SYS1.UNKLIB 



IKJPARS2 



Parse2 Service 
Routine 



[ 



IKJEFP40 



Parse2 
CSECT 



IKJEFP50 




Parse2 
CSECT 



IKJEFP60 




Parse2 
CSECT 



Approximate Sizes 
12K bytes 
1.5K bytes 
8K bytes 



Note: IKJPARS2 is loaded by IKJPARS when an IKJTERM, IKJOPER or IKJRSVWD macro 
instruction is coded. 



s 



Figure 20. Program Hierarchy: Command Scan and Parse Service Routines 
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Section 3: Program Organization 



This section describes the program organization of Command Scan and 
Parse. It includes three types of information: 

• Program Hierarchy Chart (Figure 20) — which shows how programs are 
organized into load modules, assembly modules, and control sections, 

• Program Descriptions — which describe the overall logic of each 
assembly module. 

• Program Flowcharts — which describe the detailed logic of each 
control section. 

For a summary of the functions performed by each subroutine (routines 
below the control section level) refer to the Directory in Section 4. 



Program Hierarchy 

Command Scan has two assembly modules while Parse (IKJPARS) has three 
assembly modules as shown in Figure 20. One assembly module (IKJEFP20) 
is common to both Parse and Command Scan so that the two programs, when 
combined, have only four assembly modules. They are: 

IKJEFP00 — Parse. This module has three control sections: IKJEFP00, 
IKJEFP01, and IKJEFP02. 

IKJEFP10 — Parse Messages 

IKJEFP20 — Common Subroutines 

IKJEFP30 — Command Scan 

IKJPARS2 is an assembly module that is loaded by IKJPARS when an 
IKJTERM, IKJCPER or IKJRSVWD macro instruction is coded. IKJPARS2 
includes three control sections; IKJEFP40, IKJEFP50 and IKJEFP60. 
Figure 21 shows the linkages between IKJPARS and IKJPARS2. 
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IKJPARS (IKJEFPOO, IKJEFP20, IKJEFP30) 



IKJPARS2 (IKJEFP60, IKJEFP40, IKJEFP50) 



(T) Process PCEs 



IKJPARM 

IKJPOSIT 

IKJIDENT 

IKJKEYWD 

IKJNAME 



IKJTERM 
IKJOPER 
IKJRSVWD 



IKJSUBF 
IKJENDP 
IKJRLSA 



I 



© 



IKJPARS 
Subroutines 
used by all the 
PCE Processors 



© 



Requires IKJPARS2 

• LoadlKJPARS2 

(if not loaded) 

o Call IKJPARS2 




© 



Process PCEs 



IKJTERM 

ikjoper m 

IKJRSVWD 



(D IKJPARS Subroutines required 



1 



LINKRET ROUTINE 



Load subroutine address 
Save IKJPARS2 environment 
Save address of PCE processor 
Load entry to IKJPARS 
Establish IKJPARS environment 



Load address of processor 
Return to PCE processor 



B 



Figure 21. Linkage Between IKJPARS and IKJPARS2 
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Module Descriptions 

IKJEFPOO — PARSE SERVICE ROUTINE 

This module has three control sections: 

IKJEFPOO 
IKJEFP01 
IKJEFP02 



v 

Register 
At Entry 
I 

Operation 



Entry 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + 1 

JCA-EE J15-19 
.J J. 



Entered from TSO command processor by a Link (or 
LOAD/CALL) macro instruction to entry point IKJPARS. 



Register 1: tParse Parameter List (PPL) 



H 



I 

Data Areas 
Created by 

k 

Data Areas 
Updated by 



Scans buffer for command parameters,, syntax checks 
them, optionally translates them to uppercase, 
optionally validity checks them, builds Parameter 
Descriptor List (PDL) consisting of Parameter 
Descriptor Entries (PDEs) that describe the parameter 
found, returns to calling program. 

< 



Parse Permanent Workspace (PWORK) 
Parse Recursive Workspace (RWORK) 



Routines 
Called 



Parse Permanent Workspace (PWORK) 
Parse Recursive Workspace (RWORK) 



PUTLINE service routine (IKJPUTL) 
PUTGET service routine (IKJPTGT) 



Ma jor 
Subroutines 



Main Control 

End-of-Field 

Exit 

Keyword Processor 

Name Skip 

Positional Processor 

Positional Delimiter 

Positional String 

Positional Value 

Positional Address 

Po s it ional Par enthe si zed 

String 

Positional Userid 

Positional Data Set Name 

Positional Quoted String 
Positional Space 
Positional PDE Erase 
Positional Exit 
Ident PCE 



Keyword Scan 
Prompt/Default 

Pop Input Stack 

Storage Allocation 

Skip Separators 

Push Input Stack 

List 

Range 

Get Core 

Character Type Test 

Informational Messages 

Prompt Messages 

Validity Check Exit Routine 

Err or/Handl ing 

Missing Message 

Cleanup 



See "Directory 11 
subroutines. 



for operations performed by 



(Continued) 
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System Macros 
Used 



Exit 



Registers 
at exit 



Messages 



PUTLINE 

PUTGET 

SAVE 

RETURN 

LOAD 

DELETE 



GETMAIN 

FREEMAIN 

IKJEFPWA 



-H 



Returns to calling program by issuing a RETURN macro 
instruction. 



-H 



Register 15 contains the following return code: 

X-00 1 — normal completion 

X , 04" — parameter missing, unable to prompt. 

X 8 08 9 — attention interruption 

X'OC 1 -- Invalid parameters passed to Parse. 

X"io" — No space available for PDL. 

X , 14' — Validity Check Routine requested 
termination. 

x'lS' — Invalid parameters passed to the IKJTERM, 
IKJOPER or IKJRSVWD macro instructions. 
_ ^ 

Note : Message segments are in Parse Message Module 



IKJEFP10. 



IKJEFP10 — PARSE MESSAGE MODULE 



j Entry 



j Registers 
| at Entry 

I 

| Operation 



B 



r t 1 

| Flowcharts | Operation 
| Diagrams 



t 

|DS,DV, 

|EA-EB 

.J 



|16-19 



H 



I Entered from IKJEFP00 via address. 



|N/A 



— +- 



|This module contains no executable code. It contains 
| message segments that are formatted and sent to the 
| terminal by the PUTLINE and PUTGET service routines. 

-J. 



-* 
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IKJEFP20 — COMMON MODULE 

(Used by both Parse and Command Scan) 



I 

Registers 
at Entry 



Entry 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
t + ) 

|EC-EE |14-19 
.J. ± 



Entered by a branch- and- link- register instruction to 
entry point GENSCAN, TRANSX, or TRANSQ. 



Operation 



If entered at GENSCAN: 

Register 4: tNext character to scan 

Register 8 : t Return address 

Register 13: tWork area address 

Register 15: tEntry point address, Base Register 

If entered at TRANSQ or TRANSX: 

Register 6 : t Current PCE 

Register 9: tReturn address 

Register 13: tWork area address 

Register 15: tEntry point address. Base Register 



GENSCAN is a generalized scan routine than scans the 
buffer for a parameter according to control 
information set up by the invoker of Command Scan or 
Parse. 

TRANSQ is a translate routine that translates lower- 
case alphabetic characters to uppercase. 

TRANSX - Translates lowercase alphabetic characters 
to uppercase, if the parameter is known not to be 
defaulted. 



Data Areas 
Created by 

I 

Data Areas 
Updated by 



Translate Table (TRTAB) 



Routines 
Called 



Major 
Subroutines 



Parse Permanent Workspace (PWORK) 



NONE 



GENSCAN 

TRANSX 

TRANSQ 



Mapping Macros 
Used 



IKJEFPWA 



System Macros 
Used 
j. 

Exit 

I 

Registers 
at Exit 

I 

| Messages 

L 



IKJEFPWA 



Return to calling program by a branch on register 14. 



I NONE 
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IKJEFP3 — COMMAND SCAN SERVICE ROUTINE 



| Entry 



* 



Registers 

at Entry 

I 

Operation 



I- 



h 



h 



Data Areas 
Created by 



Data Areas 
Updated by 



Routines 
Called 



Major 
Subroutines 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + 

| EF-EH | 14 
.J -L 



Mapping Macros 
Used 



System 
Macros 
Used 



Exit 



Registers 
at Exit 



Entered by a LINK (or LOAD/CALL) macro instruction to 
entry point IKJSCAN. 



Register 1: t Command Scan Parameter List (CSPL) 



1 



Searches the buffer for a valid command name,, 
optionally syntax checks the command name f translates 
the command name to uppercase, indicates whether 
parameters follow the command name, updates buffer 
offset, returns to calling program - 



1 



Command Scan 

Work Area (CSWORK) 



-H 



Command Buffer (CBUF) 

Command Scan Output Area (CSOA) 



IKJEFP20 (GENSCAN, TRANSX) 



-H 



Main Control 

SKIPB (SKIP Blanks) 

Character Type Test 

(See "Directory" for operation of subroutines.) 



IKJEFPWA 

IKJSCPL 

IKJCSOA 



GETMAIN 

FREEMAIN 

RETURN 



SAVE 



Return to calling program by a branch on register 14. 



E 



Messages 



I None 
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IKJEFP60 — IKJPARS2 SERVICE ROUTINE 

This module has three control sections: 

IK JEEP 40 
IKJEFP50 
IK JEEP 60 



| 

Operation 



Entry 



Registers at 
Entry 



r t n 

| Flowcharts | Operation 
| | Diagram 
^ + .j 

| FA-GT | 18 
J J. 



1- Entry Point IKJEFP60; Entered from IKJEFP00 or 
IKJEFP50. 

2. Entry point IKJEFP40; entered from IKJEFP00, 
IKJEFP50 or IKJEFP60. 

3. Entry Point IKJEFP50; entered from IKJEFP00. 



XINPUT (R4) - Pointer to next character to scan. 
XINPUTB (R5) - Backup pointer to next character to 

scan. 
XPCE (R6) - Pointer to PCE to scan. 



I 

Data Areas 

Created by 

!_ 

Data Areas 
Updated by 



1. IKJEFP4 provides syntax checking for Reserved 
Word parameters specified on the IKJRSVWD macro 
instruction. 

2. IKJEFP50 provides syntax checking for Expression 
parameters specified on the IKJOPER macro 
instruction. 

3. IKJEFP60 provides syntax checking for Constant, 
Variable or Statement Number parameters specified 
on the IKJTERM macro instruction. 



None 



Parse Permanent Workspace (PWORK) 



Routines 
Called 



The following routines in IKJPARS are called 
by IKJPARS2 to perform subroutine functions. 



CLEANUP 
GENSCAN 
GET CORE 
LISTT 
NAMES KP 3 
NEXTPCE 
POSITX 
PROMPTQ 



PSTRIMSG 

PUSHI 

QSTRING 

RANGE 

SCANF 

SKIPB 

SYSR1 

TRANS Q 

TYPETEST 



Major 
Subroutines 



IKJEFP6V - Scan for Variable parameter. 

IKJEFP6S - Scan for Statement Number parameter. 

IKJEFP6C - Scan for Constant parameter. 

LINKRET - Controls linkage between Parse and Pars2. 

MSGSETUP - Formats messages for SYRS1 in IKJEFP00. 



(Continued) 
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j System Macros 
I Used 



j. 

| Registers 
| at Exit 
j. 

| Mess ages 



| GETMAIN 
| FREEMAIN 
I RETURN 



|. J. 1 

| Exit |IKJEFP60 returns to IKJEFPOO at: | 

I I 

| |1. Normal exit (end of PCL) 

| 1 2. Scan under the next PCE 

| | 3. Issue prompt message 

!**• Return error code to user in Reg 15 



--+- 



I Same as IKJEFPOO 



E3 
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Program Flowcharts 

This section contains program flowcharts that describe the detailed 
logic of major Command Scan and Parse routines. It includes: 

Chart CA-EB — IKJEFPOO 
Chart EC-EE — IKJEFP20 
Chart EF-EH — IKJEFP30 
Chart KA-KE -- IKJEFP50 
Chart KF-KK — IKJEFP40 
Chart KL-LT -- IKJEFP60 
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CHART CA — IKJEFPOO 



Note: From CD/t»5 
CE/B2 
DG/J3 
DG/J5 
DH/K1 
DL/D2 
FY/D2 
GR/D4 
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Get New Space 




J3 
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Processing Routine. 



KEYWDP 



NAMES KP 



E4 



Note: Recursive 
Workspaces 
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Subfields, if Any 
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Zero ERASE Flag 



IKJPARS2,, 



Lb2 J \ B4 x V 3 / V 1 / V 3 / 



PARS2 PCE. 

Setup 

Addressability 



OPER f 



TERM J 



IKJEFP50 



IKJEFP60 
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CHART CB — IKJEFPOO 



From CA/J3 



FromCC/Dl,CC/JT 



Fro m CD/ 51 
CB 




J No 

ENDF1SCN 4 C2 
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End of Data 



SKIPB 
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(Blanks, Commas, 
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Work Area 



Clear "S" 
Flag and 
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D4 




( RETURN J 



E3 



Right Parenthesis 
Found - End 
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Data 
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CHART CC — IKJEFPOO 



From CB/E2 



Increment 
Scan Pointer 






Decrement- 
Scan Pointer 



ENDEX1 



D3 



Increment 
Scan Pointer 




J Yes 
ENDEX2 \ H3 



GETCORE DU Bl 



Get Core 
for Message 
Segment 



WRITER1 DU J1 



Write Message: 

"Extraneous 

Information" 
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CHART CD — IKJEFPOO 



From CC/J3 



From CA/J3 



From CB/B4 




EXIT 



CI 




Restore Original 
Buffer Length, 
Less Offset and 
Length Fields, 
Less One 



EXITANS , 



Increment 
Scan Pointer. 
Update Offset 
in Command 
Buffer 



EXITNORM 



Delete PURINE 
and PUTGET 
Routines. 
Set RETCODE. 
Free Core 



HI 



From EB/G1 









KEYWDPNX D5 


D4 jp 




KEYWDX1 J4 


N^Yes | 


Compute Next 
PCE Address 






E4 




1 ' 



J1 



Compute PCE 
Address 
Bump PCE 
Pointer 



( RETURN J 



( RETURN j 



V 



KEYWDPRC 



+ 




Prepare to 
Search for 
Keyword 








■ ' 
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CHART CE — IKJEFPOO 



From KC/K4 




NAMES KP3 



Erase this 
Subfield. 
Prepare to get- 
More Recursive 
Workspace 



Fl 



RECURSE CAE3 



Obtain New 

Recursive 

Workspace 



Gl 



D 



KEYWDER3 , 



Jl 



Clear PDL 
Answer Pointer. 
Prepare to 
Obtain Next PCE 



Increment PCE 
Pointer 



-tp 



U Return J 



V 



^ In ERASE Mode^ 

J No 

J C4 


Yes 




SCANF DQB4 




Determine if 
End of Data 






POSIT1 


, D4 




Multiply 
Positional 
Type Flag by 4 






Clear Temporary 
Work Storage 



POSITB ,, 



G4 



Determine Branch 
According to 
Type 



E 



INVPARM DELIMITER STRING 



VALUE 




Section 3: Program Organization 17 5 



CHART CF — IKJEFPOO 



From CE/G4 



From CE/G4 




TYPETEST DU Fl 




Decrement 
Scan Pointer 



] N ° J1 




J2 


Save Delimiter 
for Future 
Compares. 
Clear Prompt - 
for - String 
Indicator 








Clear 'End- 
Delimiter- 
Found' 
Indicator 






, 


r 











Set Flag: 
Do Not Skip 
Blanks After 
Prompt 



Increment 
Scan Pointer 



STRPSET ,, 




From CG/G1 



G4 



Set Pointer to 
Character 
After Delimiter 
or First 
Character of Data 



STRINRPT 



Increment 
Scan Pointer 



From CG/fel 




STRINEND 



Compute and 
Save Length of 
String; 
Turn Off 
Flags 



From CG/D1 
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CHART CG — IKJEFPOO 



From CF/J4 




Turn On 
'End-Delimiter- 
Found r 
Flag 



From CF/C4 



stringst] 



Increment- 
Scan Pointer 



-^ 



-H CF 

V J5, 



From CH/H1 



Fr om CE/ G4 
CG 
,B3, 



Skip 
Delimiters 




^ 



Test for a 
List Value 




Indicate Message: 
Invalid Value; 
Set Index 
Value 



F3 From CH/F1,DY/F3 



Save Pointer 
for Possible 
Invalid Message 



VAL2RSG, , G3 



Increment 
Scan Pointer 



TYPETEST D4 F1 




W 



-A EA 



B 
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CHART CH — IKJEFPOO 



From CG/J3 



From CE/G4 




ADDRESS 



Skip Delimiters 



Decrement 
Scan Pointer 



VALUPRQX 




From CG/J3, DF/C2 



Decrement 
Scan Pointer 



W 



From CG/C3 



Test for 
Value List 




From CU/CB 

CH 
F3 



Clear Type 






Code Field 










Note: From CJ/G3, 


CN/FT, 






CJ/J3, 
CK/H4, 


CN/G4, 


f ° G 1 


CN/H4, 


YV 


CL/B1, 


CN/J1, 


\/ 


CL/D1, 


CP/D1, 




CL/C3, 


CQ/G3, 




CM/D1, 


CR/B1, 




CM/E1, 


CS/G1, 




CM/F1, 


CT/C4, 




CM/C3, 


CT/B1, 




CM/B5, 


CU/F1, 






CM/J1, 


DY/F3 




ILLADDR 



E4 



Clear All Flags 
Indicate Message: 
Invalid Address 
Set Index Code 



See Note 



G3 



Clear Expression 
Entry in PDE 



STARTAGN 



From CL/D3 



H3 



Increment Scan 

Pointer; 

Clear Counter 

for Parameter Size; 

Clear Tally 

for Levels 
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CHART CJ — IKJEFPOO 



From C4/J3 



From CT/D1,CT/D3 




From CK/J4 



Set Flag to Indicate 
Entry Name 
Being Processed; 
Increment Scan 
Pointer 



NOENTRNM,, 



TYPETEST DU Fl 




Turn On 
FILTERBIT 



FromCK/Cl 7 CK/Dl 




E 



Section 3: Program Organization 179 



CHART CK — IKJEFPOO 



From CJ/C3 



BREAK 




Set Flag: 

Break 

Character 



<$> 




ASBEFORE 



Turn Off 
FILTERBIT: 
Turn On 
Symbolic 
Address Flag 



qp 




LOADPARM 



Set Flag: 
Loadname to 
be Moved 
into PDE 


■ 


G4 


MOVEIN CU F3 


Prepare to 
Move Data 
into PDE 




Turn Off Loadname 
Flag; Move Pointer 
and Data Length to 
PDE; Turn On PL/1 
Flag; Increment 
Scan Pointer; 
Clear Counter 



® 
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CHART CL — IKJEFPOO 



From CH/J2 / CK/E4 



CHARACBK 




MOVEIN CU F3 



Move Scanned 
Data into PDE 




Turn Off 
Entryname Flag; 
Move Entryname 
Data into PDE; 
Move Datalength 
into PDE 



Turn On PL/l 




Increment 
Scan Pointer 





Decrement 
Scan Pointer 



From CH/J3 
V G3> 



ADDREPLS 



G3 



Set Relative 
Address Flag; 
Store Pointer 
to Beginning 
of Address 



Increment 
Scan Pointer 



TYPETEST DU Fl 



Test 

Character 

Type 



^ 



E 



FromCM/Fl, 
CM/B5,CU/G1 



W 
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CHART CM — IKJEFPOO 




From CR/H3 



Character Type > S__I jf Jl J 

^Hexadecimal yr ^> — ' 



Increment 
Counter 




From CK/G1,CK/B4 





From CQ/H1 



G3 



Clear Counter 
and Tally 



UPDATE ,, 



FromCN/J4,CN/Fl 



Increment 
Scan Pointer 



TYPETEST DU Fl 
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CHART CN — IKJEFPOO 



From CM/J3 




Increment 
Counter 



Set Flag: 
Hexadecimal 



•© 






B 
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CHART CP — IKJEFPOO 



From CN/C4, CN/D4 



PERCENPT S ^vBl 
Are There 
' Levels of Indirect ^ 
Addressing . 




-*(G1 



Increment Tally 
for Levels 




STALOC DRB3 



Obtain and Clear 
Core Needed for 
PDE Expression 




Initialize Pointer 
to First Expression 
in PDE 



-© 




Increment PDE 
Pointer Chain 




-HC4 



Store Pointer to 
Newest PDE 



Decrement Scan 
Pointer; Determine 
Address -Length 




Decrement Address 
Length (To Avoid 
•N') 



ASITWAS 



J4 



Store Data Length 
to Prepare to 
Translate to 
Upper Case 



-© 



1=^ ® 

F4 X -^ 
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CHART CQ — IKJEFPOO 



From CP/J4 



ATRANSQ 



Translate to 
Upper Case 




WHAT NEXT , , 



Increment 
Scan Pointer 




D2 



Turn Off 

Hexadecimal 

Flag 



Move Sign 
of Expression 
into PDE 



From CL/G1, 
CM/E3,CR/G5 




TYPESET DU Fl 




Prepare to 
Scan Second 
Range Value 



Set 

End -of- File 

Indicators 



-%> 




Turn Flag Off 




ADREXIT ,, F5 



Decrement 
Input Pointer 



ADREX1T1 



G5 



Move Data 
into PDE 



B 



From CQ/G5 

"CO" 

vG5, 



Section 3: Program Organization 18 5 



CHART CR — IKJEFPOO 



From CJ/E1 



REGISTER 




DOUBLE 



© 



F2 



Set Flag: 
Double Precision 
Floating Point 
Register 



G2 



Set Flag: 
Single Precision 
Floating Point 
Register 



H2 



Set Flag: 
General Register; 
Turn Off "Two 
Registers" Flag; 
Increment Scan 
Pointer 



REPEAT 





TYPETEST DU FT 



Next Character 
HEX 




NOTABS , 


No 

G5 


MOVEIN CU F3 


Move Data 
into PDE 







Decrement 
Scan Pointer 



© 



Reset Counter and 
Scan Pointer 



^ 
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CHART CS — IKJEFPOO 



From CS/J1,CR/D1, 
CR/F3,CR/J5 




From CR/H1,CT/C1 
~CS~ 
vB3. 



DECIMALL B2 



Turn On 
Register 
Control Bit 



REGLOOP 



From CT/J1 



D1 



w 





Turn Flag Off 



Turn Flag Off 



EED 1 


Yes 




Is Counter > 2 . 


J CH 1 
\E4 ) 


jNo 






the Character^ 
Upper or Lower s 
\Case "R^/ 


Yes 




J CR 1 
\ H2 / 



TYPETEST DU Fl 



Test 

Character 

Type 



•© 



MAYBEREG 



<\% the Characters 


No 


1 CT 




\Type Numeric y/ 




K*y 


JYes 






^"Two Registers'^s 


No 


*G?\ 




V Flag On S 




i kD 


JYes 






\ D4 






Turn Flag Off 










TURNON E5 


/ / N S S C4 






s Is the Second ^v 






Turn Register 
Control 
Flag On 


SsCharacter 0-5/ 










1 




E 



Is Counter = 2 



Turn Off 
TWORBIT 
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CHART CT — IKJEFPOO 



From CS/G3 




Clear FILTERBIT, 
Set Symbolic 
Address Flag 



W 




Turn it Off 



tp 




C3 / \° 4 

SZ , ,' St n e \ No >< „ \No , rH 
^Symbolic Parameter} »>< Does Counter = > *A *- n 



Decrement 
Scan Pointer 



From CS/B4 




WHICHONE ,, G3 
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CHART CU — IKJEFPOO 



From CT/J3 



From CH/C3,CT/D4 



Decrement 
Scan Pointer 
Turn Symbolic 
Address Flag 
Off 



From DA/E4 



From CT/J3 



ABSADDR 




Turn Symbolic 
Address Flag 
Off 



qp 



PROMPTQ DD Gl 




f MOVEIN J 




F3 


Decrement 


Scan Pointer; 


Determine 


Address Length 


and Number 


of Levels 



E 




SUBTRACT 



H5 



Decrement 

Back-up 

Pointer 
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CHART CV — IKJEFPOO 



FromCU/G3,CU/J3 



ASITIS 



ATRANSQ 



Translate to 
Upper Case 




( RETURN J 



From CE/G4 



*f RETURN J 




PSTRISCN ,, 



PSTRPRQX 



Decrement 

Scan 

Pointer 



From CW/E1,CW/C1 



Increment 

Scan 

Pointer 



w 




PSTRING 



Gl 



SKIPB 



0- 




PSTRIRSC 



Save Pointer for 
Possible "Invalid" 
Message; 
Increment 
Scan Pointer 



PSTRIPRQ 



PROMPTQ DP Gl 



Test for 
Prompt or 
Default 
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CHART CW — IKJEFPOO 



From CV/E3 




Decrement 

Depth 

Meter 




From CV/E3, KE/K3, 
KX/J5, LR/G4 



PSTRIMSG 



Determine and 
Save Length 
of String 



v B3 


GETCORE DU Bl 


Get Core for 
Message 


C3 


WRITER1 DS Jl 


Write Message 
"Right Paren 
Assumed" 




From CE/G4 



SKIPB 



Skip Delimiters 




G4 



PROMPTQ DP G1 



Test for 
Prompt or 
Default 



Test for List 



From CX/D2 




ILLUSID 



I CX I From CX/D1 , CX/K4, DY/F3 



C5 



Load PARS2 
Return Address 



(Return to A 
PARS2 ) 



B 






Indicate 
Message; 
Invalid USERID; 
Set Index 
Value 




+0 


r\ EA 1 


'y 


^y 


pi 
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CHART CX — IKJEFPOO 



FromCW/G5,CW/S3 



USIDRSC 



B1 



Save Pointer for 
Possible Invalid 
Message; Set 
Parm - is - Present 
Flag 



CI 



GENSCAN 



Syntax Check 
Parameter 



From CZ/F 


1 ^v / 


^ 


USIDPSWD \ HI 




SKIPB DS Bl 




Skip 
Delimiters 




Decrement 
Scan Pointer 




*l r W 1 


w 



TYPETEST DU Fl 



Test 

Character 

Type 





•© 

FromCZ/Hl 



USIDQ2 



SKIPB DS Bl 



Skip 
Delimiters 




Increment 
Scan Pointer 




© 



© 



USIDOI 



TYPETEST DU Fl 
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CHART CY — IKJEFPOO 



From CX/J 1,02/03 




Check Syntax 
of Entry 




Determine 
and Save 
Password 
Length 



ATRANSQ 



Translate 
to Upper 
Case 



Set Flag: 
Parm is 
Present 



From CW/G5 



Turn Off Null 
Line Flag; 
Clear Password 
Data 



Set Code: 
4 Words to 
be Moved 



Decrement 
Scan Pointer 



ILLPASWD 



Set Index 
Value 



Indicate Message; 
Invalid Password; 
Set Flag: Prompt 
in BYPASS Mode 



TYPETEST DU Fl 



Test Character 
Type 




B 



From CX/D4,CX/F4,CX/K4, 
CZ/D1,CZ/H1 



USIDXIT 



Decrement 
Scan Pointer 
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CHART CZ — IKJEFPOO 



From CX/F1 



From CX/J1,CY/D2 




Increment 
Scan Pointer 




TYPETEST DU FT 



Test Character 
Type 




PSWDPRQ 



Prepare to 

Write 

Message 



C3 



GETCORE DU Bl 



Get Core 

for 

Message 



D3 



WRITER2G DU CI 



Write Message: 
"Enter Password 
for" - 



V 



From CE/E4 



DSNAME 



Skip 
Delimiters 



From DA/J3 




DSNAMPRQ 



PROMPTQ DP Gl 



Check for 
Prompt or 
Default 



LISTT 



DT Bl 



Test for List 
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CHART DA — IKJEFPOO 



From CZ/J3 



DSNAMRSC 




DA | See Note 
B2 ^ 

ILLDSN B2 



Indicate Message: 
Invalid DSNAME; 
Set Index Value 



-E> 



From CZ/H5 



Set Flag: 
DSNAME 
Present 



DSNSCAN 



From DD/C3, DD/H3 



Decrement 
Scan Pointei 



HI 



Check Syntax 




Qualifier or 
Member Missing; 
Decrement Scan 
Pointer 




Note: From DB/C1 
DC/E5 
DD/B1 
DD/BB 
DD/G3 
DD/F1 
DE/B1 
DE/D1 
DY/F3 




Set Flag: This is 
Not First 
Qualifier Being 
Processed 



T 



Increment 
Scan Pointer 




B 
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CHART DB — IKJEFPOO 



From: DD/E1,DE/G1 




From DC/D4 



Increment 
Scan Pointer 




FromDD/Fl, DE/F1 



Increment 
Scan Pointer 




DE/D3 ,H3 



' ' 


B3 


TYPETEST 


DUF1 


Test 




Characte 




Type 






From 
CZ/J5, 
DC/G3, 
DC/E5 

DB 
vC4 v 



C4 



Decrement 
Scan Pointer 



SKIPB 



Skip 

Delimiters 




-UC5 



Increment 
Scan Pointer 



SKIPB DS Bl 



Skip 
Delimiters 




Turn Off Null 
Line Indicator; 
Clear Pointer to 
Password in PDE 



DSNEXIT1 



Set Code: 
6 Words to 
be Moved 
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CHART DC — IKJEFPOO 



From DB/J3 




Get Control 
Information 
for GENSCAN 




Decrement 
Scan Pointer 



F2 (F3J ILLDSNP5 



F3 



Decrement 
Scan Pointer 



DSNPWEND G2 



Store Pointer to 
Password ; 
Determine and 
Store Password 
Length 



Set Index Value 



ATRANSQ 



Translate 
to Upper 
Case 



From DB/B1, DB/E1 
DC 



DSN03 




TYPETEST DS Fl 



Test 

Character 

Type 



D 



B 
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CHART DD — IKJEFPOO 



DSNMEMDL 





From DA/E1, DE/G1 



DSNMEMB 


r 

F3 




Set Flag: 
Membername 
Being Processed; 
Increment Scan 
Pointer 




^ls this 


\G3 

he EndX. 



of Input 



From DA/D1 



DSNQUOTE 



Set Flag: 
DSNAME is 
Quoted; 
Increment Scan 
Pointer 



Set Pointer to 
Membername; 
Set Flag : Mem- 
bername Present. 
Get Control Info 
for GENSCAN 
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CHART DE — IKJEFPOO 




From DC/B1 ; DC/E2 



cT V ci 



ATRANSQ 




"db\ 



DSNAMPWQ 




GETCORE DU Bl 



Get Core for 
Message 



WRITER2G DVC1 



Write Message 
"Enter Password 
For" 



From CE/G4 



Load Pointer to 
Member Name 



El 



From DF/B3 




QSTRPRQ1 



PROMPTQ DP Gl 



Test for 
Prompt or 
Default 
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CHART DF — IKJEFPOO 



From CH/C1,DE/J3 
"DF 
vBl 



VALENTRY v 



qp- 




Store Pointer 
to Character 
String 



QSTRLOOP 



Increment 
Scan Pointer 



Decrement 
Scan Pointer 



DF 
Dl 

From DG/B1,DG/D1 



QSMSGEND E 2 




GETCORE DU Bl 




Get Core for 
Message 





QSTRPRQ 



Decrement 
Scan Pointer 



See Note 1 . 





QSTREND1 



Decrement 
Scan Pointer 



RANGE DT F3 



Test for Range 



Note 1 . PARS2 does not change flags. 




Set Up Address 
for 2nd 
Value Scan 



J K5 



(Return to A 
PARS2 J 
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CHART DG 



IKJEFPOO 



From DF/K1 




Determine and 
Save Data Length; 
Replace 2nd Quote 
with a Blank; 
Decrement 
Scan Pointer 




From CE/G4 
PG 



From DJ/B3 



|f> 




Decrement 
Scan Pointer 



Clear Flags: 
One PDE No Skip 
after Prompt 



(Return to y_ 

PARS2 J~ 



From CE/E4 
~DG- 
,B3 . 



See Note 3 



POSITERS - 




Load Length 
of PDE 




Double the Size 
of PDE to be 
Erased 



POSITER2 



Erase Old 
Information 
In PDE 




Zero Out 
Pointer to 
List Chain 



POSITX2 



B5 



Zero Pointer 
and Length 
Fields 



POSITX1 



C5 



Translate Data 
to Upper Case 



Move Pointer 
and Length 
into PDE 




Set Flag; 
Data Present 



B 



G5 



From CQ/G5, 
CY/B3, FE/F4, 
FJ/H2 



Get Next 
PCE Address 




Note 1: FromCF/C2, CF/J2, DJ/D1, DJ/H1, DH/J2 

Note 2: From CF/J5, CW/C3, CW/F1, DF/G5, DF/H3, DK/G4 

Note 3: From CF/E4, CG/J2, CH/J1, CV/H3, DE/H5, DJ/G5 

Note 4: Before this decision is made, the Length of Data and PDE size are saved, and if a 
PARS2 PCE is being processed, the return address to PARS2 is stored. 
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CHART DH — IKJEFPOO 



From DG/J5 



Add and Save 
Length of 
2nd PDE 



POSITX55 




Set Flag: 
Last Element 
in Chain 



POSITXCE F2 



Add and Save 
Length of 
2nd PDE 



C3 



From DJ/Hl 

DH 
vC4 y 



Set Flag: 
List Not 
Specified 



© 




STALOC DR B3 



Allocate 
Storage for 
PDE 



^ \J1 

Right \. 


Yes 




Turn off 
Possible 
List Flag 






J RG 1 


Found yr 


Yes 




%> 


]No 


K2 




PARS2 \ 


f Return to ^ 
V PARS2 J 




PCE S 









POSITX9 



Move Data 
into PDE 







POSITXI3 E4 






SKIPB DS B1 


No 


Skip Delimiters 








( RETURN J 




No 


Move Data 
to PDE; 




Decrement 
Scan Pointer 




POSITX7 


J5 




VCERTN DY'Bl. 




Check Validity 









© 
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CHART DJ — IKJEFPOO 



From DH/C5 



From CA/J3 



POSITX9C 




POSITX4 



DJ I From DX/J1 



Fr om DG/ H5 



POSITX12 ,. 



Prepare to 
Move Data 
into PDE 







No 

C3 


SCANF DQ B4 


Pop Stack 
if Possible 




D3 


Zero Temporary 
Area for PDE 




E3 


SKIPB DS Bl 


Skip 
Delimiters 



From: DK/E2, 
DK/G4 





Indicate Message: 
Invalid ID; 
Determine 
Parm Type; Set 
Index Value 



B 





PROMPTQ DPG1 


No 


Test for Prompt 
or Default 
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CHART DK -- IKJEFPOO 



From DJ/J3 
DK 




IDOO 



Yes CI 



Move Options and 
Other Bytes to 
PDE Work Area; 
Compute Max 
Length. 



ID005 




RANGE DTF3 



Test for 
Range 




Get Control 
Information 
for GENSCAN 



Missing: 
Decrement 
Scan Pointer 



Too Long: 
Decrement 
Scan Pointer 



TYPETEST DU f 1 





Compute and 
Save Parameter 
Length ; 
Decrement 
Scan Pointer 




1st Value of 
Range - Load 
Address of 2nd 
Value Scan 
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CHART DL — IKJEFPOO 



f IKJEFP01 j From CD/F5,CD/C3 



KE YWDSCN 

SCANF DQ B4 




-*V 



Load Control 
Information 
for GENSCAN 



Check Syntax 
of Keyword 




Keyword Missing 

Decrement 

Scan 

Pointer 




E 
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CHART DM — IKJEFPOO 



From DL/H4 



Move Keyword 
Name to 
PDE Area 




qp 




Set Flag 
Ambiguous 
Keyword; 
Clear "Already 
Found" Indicator 



From DL/H4 



1 DM 1 
KEYWDTL3 \ Gl 




Set Name 
Counter to 1 




' 


HI 




KEYWDX1 CD J4 




Skip This 
Keyword 
Entry 




' 


' 



G3 



Clear Erase 
Indicator 



Clear 

"Already Found" 

Indicator 




From DP/B1 



J4 



Set Flag: 
Erase in Process; 
Prepare to 
Start Erase 
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CHART DN — IKJEFPOO 



From DM/J3 



KEYWDINS 




KEYWDSUB 



SKIPB DS B1 



Skip 
Delimiters 




Increment 
Scan Pointer 



Increment 
Pointer to 
Data Field 




Set Flag; Left 
Parenthesis Used as 
Delimiter of List 
and Subfield; 
Decrement Scan 
Pointer 



J3 



Set Flag: 
Keyword with 
Subfield 



K3 



RECURSE CA Gl 



Process 
Subfield 



Turn Off 
Keyword 
Processing 
Flag 



E 



•© 
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CHART DP — IKJEFPOO 



From DL/H4 




From CC/B3, DL/C4, DL/E4 



From DM/C4 



( PROMPTQ j 




Add One 
to Counter 




PUS HI 



Get New 
Input 



PROMPTQ1 




Setup Offsets 
for TERM, 
OPER, RSVWD 
PCE 
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CHART DQ — IKJEFPOO 



From DP/B4, DP/C4, DP/E3, DP/F3, DP/K3 




Get Length 
of Default 
Data; 

Decrement 
Scan 



B2 


CLEANUP EBA1 


\ Yes 


Indicate 
Invalid Parms 
and Exit 





B4 



D4 

Stack to be \ No 
Popped 



Anything on Stack . 



c 



RETURN 




[Yes 


JNo 






| F5 


yS \F4 

PARS2 PCE ^ 




Drop Back 
to Previous 
Stack 


(Yes 




v G5 


s^ ^\G4 

Has Stack Been^v 
. Popped yS 




Free Last 
Input Stack 


pYes 






r H5 


1 DR 1 
\ E1 / 






Pop the Stack 











B 
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CHART DR — IKJEFPOO 



From DQ/F4 



SCANPOP3 



End of 
Prompt/Default 



vCl 



From DQ/G4 




Passv 


vord ^ 

Yes 

Dl 




SCANPOP4 , 


From DQ/G4 




Completed 
Slash or 
Prompt/ 
Default Data 


w 


T 










SC 


\NF2 


El 






Get Index 
to Next 
Empty Slot 
in Stack 




Indicate 
Stack has 
Been Popped 




GETCORE DU Bl 



Get More 
Space 



STALOFST JT 



Load Address 
of Internal 
Space Anchor 



STALONXT v 



Load Next 

Element 

Address 




STALOXIT 



Clear Old 

Chaining 

Information 



( RETURN J 



© 



STALOALO 



Indicate Need 
for More 
Storage 



Copy Forward 
Chain 




E5 



Indicate New 
Area is the End 
of Chain; 
Update Storage 
Chains 



Clear Storage Area 
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CHART DS — IKJEFPOO 



( SKIPB J 



Increment- 
Scan Pointer 




SCANDLSN DQ D4 



Try to Pop 
Input Stack 




f PUSHI J 




H2) PUSHIX 



H2 



Clear Flag 



PUSHGET J2 



GETCORE DU Bl 



Get Core for 
Next Pushdown 
Stack 



© 



SKIPBX 



C3 



Store Address 
of Character 



D3 



Store Address 
Decrement 
Scan Pointer 




U RETURN j 




Decrement 
Scan Pointer 



( RETURN +4 ) ( MTURN +o ) 



J3 ( J4 ) PUSHIT 



Indicate That New 
Stack is Now 
Current Stack 



Push Down 
Input Stack; 
Update 
Indices 



C5 



J RETURN ) 



E 
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CHART DT — IKJEFPOO 




Increment 
Scan Pointer 




SKIPB DS BT 



Skip Delimiters 




Decrement 
Scan Pointer 



■© 



■O 




Set Pointer 
to Invalid 
Parameter 



( Return +0 j 




Turn Off Control 
Bit for 1st Value 
of Range. 
Turn On Control 
Bit for 2nd Value 



K3 



f Return +4 \ 
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CHART DU 



IKJLFPOO 



Al 



( GETCORE J 



B1 



Issue Conditional 
GETMAlNfor 
Amount 
Indicated 




GETERROR C2 



Set RETCODE; 

GETMAIN 

Failed 



D1 From DW/D1 



/ — *— ^ pn 

f RETURN J \/ 




/ RETURN j 



HI 



WRITERl J 




Jl 


Indicate 
No Help 
Messages 


' 


1 



*( RETURN j 



From EB/F3 



WRITER1C 




C4 



Swap Addresses 
Indicate a 
3 -Segment 
Message 



Write 
Message 



From EB/G3 
From DW/C1 



Set RETCODE: 
ATTN Exit 



©- 




Load Length 
of Message 
Statement 
Free Core 



K3 



f RETURN ) 



FromCE/G4, 
DW/B1, 
DY/C3, 
DY/D1, 
DY/F3 

H4 




Indicate 

2-Segment 

Message 



WRITER1A 




Indicate 
1 -Segment 
Message 



B 
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CHART DV — IKJEFPOO 



f WRITER2 j 



Indicate 
a One 
Segment 
Message 



Add to 
Input Stack 



From DZ/D5 



W 



From DQ/C1 






E2 




E3 


Yes 


Turn Off 
Second Level 
Message 
Flag 




Load No. of 
Messages and 
Address of 
Message 







POSITHELP 



H2 



Yes 


Increment 
Pointer By 




Parameter 
Length 


No 




' 



Setup Offsets 
to HELPmsg. 
Segments 



WA4K- 



NOMAXL 




Load Length 
of Data 



HAVEHELP 



Determine Amount 
of Core Required 
for Messages 



GETCORE DU Bl 



Get Core 
for Message 



E4 



Build Multi- 
Leveled Message 
Chain in 
Core Obtained 



from DW/K1 
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CHART DW — IKJEFPOO 



From DV/J4, DX/B5 




From DX/F3 




SCANDLSN DQD4 



Repop Stack 




From DX/B2 



Store POSITX 
as Return 
Address 



E4 



Erase PDE 
for 1st Value 
of Range 



WRITER2L 



Store POSITX3 
as Return 
Address 



E 



-§> 
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CHART DX — IKJEFPOO 



From DW/F3 



From DW/E1 





1 DX 1 


yy 


WRITER2H J Bl 




Decrement 




Scan Pointer 




' 


£1 




SKIPB :DS Bl 




Skip 




Delimiters 




Increment 
Scan Pointer 



Note: From DW/D3 
DW/G3 
DW/H4 
DW/J3 



® 

j B2 


PROMPGO \ B3 


Turn Off 
List Pointer 




STALOC DR B3 


Allocate Space to 
Copy New Data 


' ' 




C3 


1 DW | 




Update Scan 
Pointer to New 
Data - Copy it 
into PARSE's Work 
Area Free Core 






/Nv D3 
/ Should >v 
Blanks be Skipped 
"V in Buffer / 



DS Bl 



Skip 
Delimiters 



From 


DY/H4 

r— v 


f BYPASS J 




DX\ 








tib > 


B5 




PUTGET 




Put Read/Write 
Message in 
BYPASS Mode 




'■ 



NOTENTER 




Clear Flags 



( Return J 
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CHART DY — IKJEFPOO 



( 



Al 



VCERTN J 








' 


' 






/ \bi 


> N ° J 




S Validity \^ 

Check Exit ^ 

s^ Wanted / 


RETURN 








See Note 1 


I^ es 








v/^^\ C1 








oes PDE 


Have Data 


No 







) 



Set Return 
Code: PARSE 
Should 
Terminate 



s Validity 

Check Address 

Valid 



From DP/G2 



Go to 

Validity Check 
Exit Routine 
(Determined 
by Caller) 



See Note 1 




■c 



RETURN 




D5 



Set Flag to 
Indicate 
Message 
Present 



Zero PDE - 
Must be 
Rebuilt 



*"© 




Indicate last 
PDE in 
Chain 



Indicate 
Return 
Code 16 



s 



^ OP x) Qy Qy \y OP 

ILLVALU ILLADR ■' ILLUSID ILLDSN INVPARMS ILLQSTR iLLSRRl 



Set Index Value 



K3 



■4 Return J 



w 



Note 1 : If a PARS2 PCE is being processed, 
clear temporary storage and return 
to IKJPARS2. 
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CHART DZ 



IKJEFPOO 



From DY/F3 



ILLQSTR 



Set Index 
Value 



ILLSTR1 



From 
EA/D4 



Indicate Message: 
Invalid String 



Fr om DY/J 3 




From EA/B1 

DZ I 

D2 J JUSTPROM 



ILLSTR2 



Compute Full 
Length of 
String 




G ETC ORE DU Bl 



Clear Flags 



Increase Length 
By One to 
Include 
Punctuation 



J 




JUSTPRM2 



JUSTPRM1 



Zero 

Temporary 

PDE 



Indicate Message: 
Reenter. 
Prepare to 
Prompt User 







LLKAMB2 


J2 






/ Is \ 

Ambiguous Message 
•vBeing Written > 


S Yes 


Set Offset to 
Place in 
Message 










J No Kl 


IL 


LKAMB3 


k: 




K3 




Prepare to 

Write 

Message 




Move Text into 




WRITER1 DU Jl 




Write Message 


J 




Segmen 


t 




\ 
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CHART EA — IKJEFPOO 



See Note 




F2 A SYSRISCN F2 



Increment Scan 
Pointer 



Turn Off Left 
Paren Found 



& 



C3 



Restore 
ENDINPUT 



Reset Scan 
Pointer 





Set End of 

File 

Indicator 



SYSRINDL H4 



Turn Off Left 
Paren. Flag 




E 



Note: From CG/E4, 
CH/E4, 
CW/J4, 
CY/E3, 
DA/B2, 
DJ/H4, 
DP/D1 
GP/K5 
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CHART EB — IKJEFPOO 



From DU/C2, 
DU/E4, 
DU/F4, 

DY/&4, ( CLEANUP 
FA/D4 

~eT 

,B1 



Al 



f CLEANUP ] 



T 


No 






B2 


y^ is x. 

^Pushdown Stack ChairX 
X^ Word Zero yT 




Obtain Next 
Stack Address, 
Free this Stack 







GETPDLAD 1 Yes CI 



Indicate No 
PDL Exists 




H Yes 

CLEANUP! 1 El 



Free Core 
Obtained 




G2 



From DW/C1 




Indicate 
Message: 
Missing 
Password 




Prepare to Write 
Message 
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CHART EC — IKJEFP20 



From ED/F1, 
ED/H 




Set RETCODE: 


Parm Good, 


Delimiters must 


be Checked 


F4 


[ Return J 



Yes 


Set RETCODE: 
Parm Good, 




End of Buffer 
Reached 




E5 



( Return J 



B 
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CHART ED — IKJEFP20 



From EC/jl 



Set RETCODE: 
Parm Good, 
End of Buffer 




U Return J 



Increment 
Depth Meter 



Decrement and 
Test Maxlength 
Loop Control 




f Return J 




Decrement 
Depth Meter 




Yes 



*-( Return J 



[ TYPETEST J 


No 






H4 




Test 

Character 

Type 






J5 


Valid 


Cond. Code Set: 
Type Doesn't 
Match 






JYes 

J K4 






Cond. Code Set: 


K5 


Return 1 


Type A/ 


atches 
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CHART EE — IKJEFP20 



( TRANSQ J 






Yes G1 


Translate to 
Upper Case 


■ 


HI 


f Return J 



f TRANSX J 



•/ Return J 



Prepare for 
Translate 



© 



E 
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CHART EF — IKJEFP30 



0, 



f IKJSCAN J 




Prepare for Scan 




SKIPB 



Skip Separators to 
Beginning of 
Command Name 




IKJEFP20: 

GENSCAN 




No yS | s Command 
Valid 



From EG/F4, EG/G3, 
EG/H2 



Set Flag : 
Buffer is 
Empty 



Update 
Offsets in 
Command 
Buffer 



CSNOSYN 



G3 




CSEXIT w 



F5 



Prepare to 
Exit from 
Command 
Scan 



( Return J 
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CHART EG — IKJEFP30 



From EF/J2 




TYPETEST 



Validate 
Delimiters 




IKJEFP20: TRANSX 



Translate 
Command to 
Upper Case 



SKIPB 



Scan to End of 
Command or 
First Parameter 




CSEXIT80 



Set Flag: 
Command Name 
Valid, Non- 
Separators 
Remaining 



<P 



^ 



From EH/D2 



From EF/D2 




CSEXIT20 



Set Flag: 
Command 
Name is "?" 



CSEXIT40 



Yes 


Set Flag: 
Valid Command 
Name, No Non- 
Separators 
Remaining 








' 
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CHART EH — IKJEFP30 



From EF/H3 




Get Next 
Character 




TYPETEST 



Validate 
Delimiter 





Update Character 
Pointer; Save 
Address of 
Non-Separator 



( Return ) 



SKIPBX 



B5 



Update Character 
Pointer, Save 
Character 
Address 



J 



( TYPETEST J 






H2 




Validate 

Character 

Class 


Note: This Validation 
Uses the TRTAB in 
IKJEFP20 




J2 


( Ret 


urn * 
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Chart KA — IKJEFP50 



Begin OPER Processing 
(Expression parameters 
described by IKJOPER) 



See Note 1: 



f IKJEFP50 j 


' 


B2 


Turn On OPER 


and COBOL 


Mode Bits 


i 


C2 


Zero OPER 


Prompt Bit 


i 


D2 


Set OANC 


= AANC 


1 


E2 


OPERPCE = 


XPCE 


} 


F2 


PRIORPCE = 


XPCE 




G2 


XPCE = TERM1 


PCE Addr 




H2 


TERMOCK KK/A3 


Test Minor 


TERM1 PCE 




J2 


XPCE = Addr 


Minor RSVWD 


PCE 





PRIORPCE = 
XPCE 



XPCE = TERM2 
PCE Addr 



E3 



TERMOCK KK/A3 



Test Minor 
TERM2 PCE 




XPCE = Addr 
TERM3 PCE 



H3 



TERMOCK KK/A3 



Test Minor 
TERM3 PCE 



RTNCLNUP u 



Set RETCODE 
= 24 



Free Temp 
Storage 



f Issue Return \ 
( Code 24 - Goto ) 
V ^ CLEANUP J 



MP 




From- KD/C1, 
KF/F3, 
KF/G3, 
KK/C3, 
KK/D3, 
KK/t3, 
KK/F3, 
LJ/F2 



E 



I =20 



Note 1: 

COBOL mode indicates the processing 

of a PARS2 PCE. 

o IKJTERM 

o IKJOPER 

or 
o IKJRSVWD 
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Chart KB — IKJEFP50 



KB I From-FA/K3, 
V A3 ) FD/C1 



OPERLL = Last 
Minor TERM PDE 
Addr +1 Minus 
OPER PDE Addr 



Store 

PRIORPCE 
in OPEREND 



From-KC/D5 

KB 
D3 




Set XPCE to 
Chain TERM 
PCE Addr 



H2 



Turn On 
CHAINTRM 



+ First Character 

is Invalid 
+ 4 Chain TERM PDE 

is Added 



J2 



IKJEFP60 KL/A1 



Add TERM PDE 



^ 



C3 



DS/A1 



Skip Over 
Separators 



+0 End of Input 



*■ +4 More Data 

PR ir_ D3 



OPERSVE = 
XINPUTB 




Set 

INVPSAVE = 
OPERSVE 


i 


J3 


XINPUT = 
XINPUTB 


1 


K3 


1 = 'FFFF'X 


1 


' 



H4 



PROMPTQ DP/G1 



Prompt for 
Missing Data 



+0 Parameter is 

Not Required 
+4 Parameter is 

Required - Prompted 



$] 



^ 



^ 
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Chart KC — IKJEFP50 



KC From - KB/K3, 
V A1 / KG/H3 



From - KE/E5 



All 



A4 



'XINPUT = 
XINPUT + 1 




Subtract One 
from Paren 
Count 




Qy 



XINPUT = 
XINPUT + 1 



XINPUTB = 
XINPUT 



Set XPCE = 
OPERPCE 



Add One to 
Paren Count 




From - KD/F4 

KC 

,F3 y 



Turn On 
BLNKFLAG 



IN VPS AVE = 
Addr (BLNK) 



XINPUTB = 
Addr 
(BLNK) + 1 



PPCOUNT = 
OPER PDE 
Length - 1 



CBLNKSV2 = 
Addr (P50PR) 



C4 



SYSR1 



EA/E1 



Prompt 




From- 
KB/H4, 
KE/F4, 
KF/G2 



Turn Off PFNULL 



Set XPCE = 
OPEREND 



From- 

KF/G2, 

KH/G2, 

KJ/E5, 

KJ/J2 



Set OPER 
Mode Switch 
Off 



Turn Off PWA 
COBOLMOD 
Flag 



J4 



Free Temp 
Storage 



f K4 



Return to 
NAMES KP3 in 
IKJEFPOG 



^ 



Turn On OPER 
Prompt Bit 



s 
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Chart KD — IKJEFP50 

From - KA/J3 



" Al 


1 =80 


1 


r Bl 


PRIORPCE = 


PRIORPCE + 


PCE Length 



From - KB/E3 



UpXINPUT 
Pointer By One 




Turn Off 
CHAINTRM 



XPCE = 
TERM1 PCE 
Addr 



+ Error Found 
in TERM 

+ 4 TERM 
Good - 
PDE Added 



D2 



IKJEFP60 KL/A1 



+ Error 

Detected 
+ 4 No Error - 

Add PDE 



Add TERM PCE 



MSGADDR = 
OPERSVE 



Save 

MSGAREA 
Data in 
OPERSPM 



MSGLEN = 1 



F2 



Set XPCE 
to RSVWD 
PCE 



G2 



IKJEFP40 KF/A2 



Add RSVWD PDE 



(p 



W 



From - KE/E1 



Set Special 
Message Bit 
On 



DS/A1 



Skip Over 
Separators 



+ End of Input 



+ 4 More Data 
G4 



Set 

INVPSAVE = 
XINPUTB 



*t> 



XINPUT = 
XINPUTB 



Initialize 
Paren Count 
to One 
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Chart KE — IKJEFP50 



From - KD/G2 



Set Left Paren 
Bit On 



MSGAREA = 
OPERSPM 



From- KB/J2, 
KD/G2 



Set XPCE to 
TERM2 PCE 



Turn Off 
PFNOPOP 



DS/A1 



Return to OPER 
Input Buffer 



D2 



KJEFP60 KL/A1 



Add TERM PDE 



+4 TERM Good - Add PDE 




OPERSVE = 
XINPUT + 1 



OPERSVE = 
ENDBAKUP 



G3 



DS/A1 




Set CBLNKSV1 
to Addr (B) 
for Return 



PPOINTR = 
PRMTPTR + 1 



XINPUTB = 
OPERSVE 



K2 



XINPUT = 
XINPUTB 



K3 



PSTRIMSG GW/J1 



Write Closing 
Parenthesis 
Assumed Message 





1 KE 1 From 


- KB/J2 






B 


i 


A4 


OVCERR A5 




Fill in the 
OPER PDE 






Turn On Right 
Paren Indicator 
for Special 
Message 










} 


B4 






i 


B5 




Restore XPCE 
from OPERPCE 






Turn On 
Left Paren 
Indicator 




V C4 






v C5 










Turn On 




Turn Off 

CHAINTRM 

Bit 






Special 
Message 
Indicator 




V D4 






v D5 




Set Register 
1 =PDE 
Length - 1 






Move 
OPERSPM 
Data into 
MSGAREA 




" E4 






V E5 




PUNKSV2 = 

Addr 

(OVCERR) 






XINPUT = 
XINPUT + 1 






F4 












POSITX DG/H5 




' 




Add OPER PDE 


UM 


ERROR \/ 






No ERRO 


R 






' 











E 
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Chart KF — IKJEFP40 



Begin RSVWD Processing 
( Reserved Words 
Described by IKJRSVWD) 



f IKJEFP40 J 



u B2 


Set RSVDRTN = 
LINKA 


if C2 


RSVWDSV2 = 
XPCE 


\ 


' D2 


Zero RSVDPRMT 
Switch 



Place Chained 
RSVWD Ptr in 
XPCE 




Note 1 . 

COBOL switch "on" indicates the processing 

of a PARS2 PCE. 
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Chart KG — IKJEFP4 



KG"! From - KF/K2, 
(K\) KJ/E4 



Al 



Set Length 
Count = Zero 



Save 

XINPUTin 

RSVWDSV1 



&, 



Set Up . 
Separator 
Mask for 
TYPETEST 



XINPUT = 
XINPUT h 




G4 



XINPUT = 
XINPUT - 1 



qp 



XINPUTB = 
RSVWD5V1 + 1 




Add One to 
RSVWD 
Length Count 



© 



S 
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Chart KH — IKJEFP40 




Copy RSVWD 
into Work 
Area 



XPCE = 
RSVWD PC E 



XINPUT = 
RSVWDSV1 



^ 




H5 





FREECORE KK/A2 


No 


Free RSVWD 
Copy Area 
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Chart KJ — IKJEFP40 



~KJ~| From-KH/K4 
Al 



FREECORE KK/A2 



Free RSVWD 
Copy Area 




From- 
KH/B3 



Dl 



1=4 



XPCE = 
RSVWDSV2 



Fl 



Return On Addr 
inCBLNKSVl 
+ 1 (to Caller) 



XINPUT = 


XINPUT- 1 


' 


C2 


Restore XPCE 
from RSVWDPCE 


' 


D2 


Fill in the 
RSVWD PDE 


1 


E2 


XINPUTB = 
XINPUT 


} 


F2 


INVPSAVE = 
PPOINTR 


1 


G2 


Register One 
= PDE Length 
- 1 =7 


i 


H2 


POSITX DG/H5 


Add PDE 




KJ] From- KG/K2, 
v A3y KG/H3 



KJ From-KF/K2, 
VA4/ KG/G4 



XINPUT = 
ENDINPUT 




C4 



PROMPTQ DP/G1 



+ Parameter is not required. 

+ 4 Parameter is required - prompted. 




B 
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Chart KK « IKJEFP40 



FREECORE j 


' 


B2 


GOREGSV = 
LINKA 


1 


r C2 


REGO = RSVWD 
Length Count 


1 


D2 


REG1 = 
XINPUTB 


1 


f E2 


Issue FREEMA1N 




r F2 


LINKA = 
GOREGSV 




f G2 


( Return to Caller j 



c 



TERMOCK 



XPCE Points to^ 
TERM PCE 



V D3 



LIST 

Specified in 

TERM PCE 



RANGE 
Specified in 
TERM PCE „ 



XPCE 

Greater than 

PRIORPCE 



F3 



_] 




I 

Yes 


KA 1 


V 


I 

. Yes 


KA 1 




f 


. No 


KA 1 

\ B4 X 




r 



G3 



PRIORPCE = XPCE 


1 


r H3 


LINKA = 
GOREGSV 


} 


r J3 



f Return to Caller J 
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Chart KL — IKJEFP60 



From - KM/D4 




Turn Off RC16 



Set PREVPDEL 
and PFENDSET 
to Zero 



CKLIST 



DT/A1 



Set PDEPTR to 
the TEMP PDE 
In the Work 
Area 



SAVELNK1 \t 



Gl 



Save LINK1 
inCBLNKSVl 




Set PPCOUNT = 19 



n<r~] 4*- 

Hl \H2VlNVPSAVi 




SKRETURN 



(Return to OPER 
On LINK1 +0 
(IKJEFP50) 



Exit to CODE4 in 
VARIABLE Rtn 



LNGTH79 



Set PPCOUNT = 79 



NEXTPCE 



B4 



Exit to 

UPDTEPCE in 
VARIABLE Rtn 




B 



Note 1: 

COBOL switch indicates the processing of a PARS2 PCE. 



Section 3: Program Organization 237 



Chart KM — IKJEFP6 



KM From-KL/H2 

Al ' 



KM From-KL/H2, 
v A3 / KT/K3 



Set Up for 
Separator Check 
- '09' Mask 



Bl 



TYPETEST DU/E2 



Test Character 
Type 



Separator ' 









INPUTUP v 


A3 










XINPUT = 
XINPUT + 1 






' 


C2 






IN VPS AVI < 








No 




INVPSAVE = 
XINPUT 


> 














1 


' 


d: 








PRMTPTR = 
XINPUT 





OPERTEST 



A4 



(Entry from PRMT^ 
Return J 



XPCE = 
TERMXPCE 




Null Line [Yes 
Returned X D4 



Turn Off 
PFNULL 



Set PFNOPOP 
On 



PCETYPE 




RANGE DT/E3 



Return will always be 
Fl 



Set RANGE 
Switches 



#W^Np 



STMT CNST 



VAR ANY 



Gl 



XINPUT = 
XINPUT + 1 



u HI 



(Exit to EXIT "\ 
in VARIABLE J 
Routine ^/ 



^ 



$ 
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Chart KN — IKJEFP60 



A3 



Begin STMT 
Processing 
' (Statement 

number described 
by IKJTERM) 



TYPETEST DU/E1 



Check for Alpha 
Char Mask = 
X'CO' (LINK1) 



STRINPTR 




KN 
,C3 



From - KQ/E1 



From-KQ/D2 




E 



/^Exitto X 

( PROMPT05 in ) 
\ CONSTANT Rtn / 



XINPUT = 
XINPUT + 1 
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Chart KP — IKJEFP60 



KP| From-KN/H3 
vAl 



RANGECK 




From- 
KQ/B3, 
KQ/C3, 
KQ/D3,. 
KQ/D1 , 
E2 KQ/E1 

XINPUT = N^ Yes 
ENDINPUT 



Set DIGITCT 
to Zero 



F3 



CODE4B LP/H2' 



Prompt thru 
CODE4B RTN 
in VARIABLE 



G3 



f ExittoCODE4B J 



^ 



XINPUT = 
XINPUT + 1 



From - 

TTl KQ/B4, 

' KQ/C4, 

KQ/D4, 

KQ/E4 

A4 



Set Parm Bit 
in PDE; 
Set STMT Bit 
in PDE 



Rl = PPCOUNT 



C4 



PPOINTR = 
INVPSAVE 



PLENGTH = 
XINPUT - 
PPOINTR 



E4 



TRANSQ EE/A1 



Via R15 Xlate 
to Uppercase if 
Reqd (LINK!) 



F4 



Exit Via 
VARIABLE RTN 
at VAREXIT 



KP | From - KN/B3 
vA5> 




TYPETEST DU/E1 



Check for 
Alphameric Mask 
= X'D0' LINK 
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Chart KQ — IKJEFP60 



KQ I From - 
V A1 ) KP/J5 



1 


Al 


Store DIGITCT 
as the PGM ID 
Length in the 
PDE 


• 


Bl 


Zero DIGITCT 


\ 


CI 


XINPUT = 
XINPUT + 1 



KQ From- 
V A2 ) KN/E3 



ADDCTR1 



SEPFOUND 



KQ I From- 
v A3y KN/G2, 
KN/H2, 
KN/J2 
A3 



Add One to 
DIGITCT 



KQ From - 
A4 ) KP/G1 



A4 



XINPUTB = 
XINPUT 



TYPETEST DU/E1 



Check for a 
Separator Mask = 
X'09' (LINK!) 



XINPUT = 
XINPUT + 1 



+4 Yes 




B 



XINPUT = 
XINPUT- 1 
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Chart KR — IKJEFP60 



BUMP 


) 


" 


B2 


XINPUT = 




XINPUT + 1 





POPSTACK 




-@ 
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Chart KS 



IKJEFP60 



From-KM/E2, 
LK/F4 




Begin CNST Processing 
(Constant parameter described 
by IKJTERM) 



CBUMP01 




PRMTPTR = 
XINPUT 



PRMTPTR = 
XINPUT; 




CBUMP02 



XINPUT = 
XINPUT + 1 



Yes 



See Note 1: 

KS 
F2 

CODE4 v 



F2 



Exit to VERRBIT 
in VARIABLE 
Routine 



T 



SETERBIT 



G2 




Set the 
ERROR Bit, 
Set PFNOPOP 



ALPHATST v 



Set 'CONST' 
Bit in PDE 



PERIODCK 



/Exit to 

( SUBERSCN in 

\VARIABLE Routing 



Jl 



TYPETEST DU/E1 



Check for Alpha 
Mask = 'CO' 
(LINK!) 





TYPETEST DU/E1 



Check for 
Numeric Mask = 
X'10' (LINK!) 




Note 1 : 



E 



KT/A2, 


KW/Bl, 


KT/D2, 


KW/B3, 


KT/E2, 


KW/t>3, 


KT/F2, 


KW/E3 


KT/G2, 


KW/F1 , 


KT/K2, 


KW/J1, 


KU/F4, 


KW/J4, 


KU/K2 


KW/K3, 


KV/B1, 


KW/K4, 


KV/C4, 


KX/A1 , 


KV/C5, 


KX/Ul, 


KV/D4, 


KX/Cl, 


KV/D5 


KY/A2 
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Chart KT — IKJEFP60 



From - KS/K3 



ZERTEMP 




From-KU/Al, 
KU/E1 



From - KV/D5 



From-KN/J4 



PARMTEST 

Is the 

Parameter Type 

ANY? 



PROMPT05 

D2 

' Is the PFLIST^ y Yes 
Bit On ? 





ty 



W 



qp 



(p 



Add 1 to 
ELEMNCT 



Zero the PDE 



(Exit to VARIABLEN 
Routine J 



PROMPTQ DP/G1 




Turn PRMTSCAN 
On 



IN TERM 
INITIALIZTN 
K3 



( Exit to INPUTUP J 



XINPUT = 
XINPUT-One 



B4 



/Exit To 
( UPDTEPCE RTN In 
VARIABLE 
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Chart KU — IKJEFP60 



From-KS/Kl 




XINPUT = 
XINPUT + 1 



From - KV/F2, 

KV/F4, 

. D3 > K x/El 



Set the 
Figurative 
Constant Bit 



SEP 



TYPETEST DU/E1 




Check for 
Separator Mask 
X'09' (LINK!) 


+0 


No RANGE 





E 




+ 4 RANGE Entered 

H3 PDESIZE ,, 



Set Up Msgaddr 
+ Msglen for 
Spec Msg 



Turn On CONST 
and PARM 
Present Bits 
in PDE 



/Go to EXIT in ^ 
WARIABLE Routine^ 



^P 
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Chart KV — IKJEFP60 



I KV I From - KS/A3 



QSTRING1 



TYPETEST DU/E1 




TYPETEST DU/E1 



LINK1 -Check 
for a Separator 
- XW 
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Chart KW — IKJEFP6 



KW I From-KS/H3, 
vM / KV/H3, 

KX/H2 

Al 



StoreXINPUTas 
the Address of 
the Period in the 
PDE 




Turn On DECPT 
Flag (3rd Bit - 
FLAG2) 



CBUMP04 v Dl 



XINPUT = 
XINPUT + 1 



I Typetest Mask = '10' 

NUMBER 



From-KX/fe2, 
KX/G2 




A3 



Store XINPUT as 
PTR to Exponent 
( + 12 - 
DATAPTRA ) 



ADCT01 




E 
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Chart KX — IKJEFP60 



From - KU/D3 




From-LC/t2 
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Chart KY — IKJEFP60 




Update to Next 
PCE 



^ 



Turn 

COBOLMOD 
Switch Off 



Note: COBOLMOD switch indicates a PARS2 PCE. 



D2 



Exit to NEXTPCE 
Routine 
(IK J PARS) 



B 
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Chart KZ — IKJEFP60 



From - 

KM/E2, 

KT/F3, 

LK/H3, 

LL/E2 



Al 

( IKJEFP6V J 



F\ 




1 


Bl 




bT/ 

' — 'TERMBEG - 






Set 








Bit in F 


>DE 





Begin VARIABLE Processing 
(Variable parameter 
described by IKJTERM) 



GENSCAN EC/B1 




PPOINTR = 
XINPUT 




From - LG/D3 



PRMTPTR = 
INVPSAV 



PRMTPTR = 
XINPUT 



HI 



TYPETEST DU/E1 




PGMID Ptr in 
PDE = 
PPOINTR 



XINPUT = 
XINPUT + 1 



FIRST NAM = 
'l'B 



PLENGTH = - 
XINPUT - 
PPOINTR 



Set 

NAMEREQD 
Bit On 



G4 



TRANSQ EE/A1 



Translate 
PGMID to 
Uppercase 



PDELEN2 = 
PLENGTH 




PRMTPTR = 
PPOINTR 
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Chart LA — IKJEFP6 



LA| From-KZ/Jl 
V A1, 



LOOP i 


AT 




Loop 




Length 1-30 


L> 


(INUP i 


Bl 




XINPUT = 




XINPUT + 1 , 


to 


XINPUTB - 




XINPUT 




' 


r ci 




TYPETEST DU/E1 


Test for 




Alphameric 


jS ^Sv D1 


Yes 


/ Valid Other \ 
X. Char? y 




Tno 


ERRORCHA ♦ 


/ \v E ' 


Yes 







Loop Length 
Greater than 30 ? 



RESCAN 



A3 



TYPETEST DU/E1 



Test for 
Separator 



XINPUT = 
XINPUT + I 




B 
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Chart LB — IKJEFP60 



LB From - LA/B3 through LA/G3 



PLENGTH = 
XINPUT - 
PPOINTR 



XINPUT = 
PPOINTR 



TSTLOOP \ f 



B2 



TYPETEST DU/EI 




XINPUT = 
XINPUTB-1 




SETERBT2 y E3 



XINPUT = 
XINPUT + 1 



ENDSCAN 



Set ERROBIT, 
Set PFNOPOP 



ENDNMPTR 
= XINPUT 



,G2 
' QUALCT Non \ Yes 





HI 


ADDNAME f H2 


PDE Name 
Ptr = PPOINTR 




TRANSQ EE/A1 


Translate to 
Uppercase if 
Required 




' 


Jl 




J2 


Set PARM 
Present Bit 
in PDE 






Qualif 
Name Ptr = 
FFO0O0O0 






1 


r Kl 








PDE Leng - 1 = 






PLENC 


3TH 







^ 





FIRSTNAM = '0 1 



From - LM/B4 
LT/J1 



MSGADDR = 
PPOINTR 
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Chart LC — IKJEFP60 




Separator After Data 
Name -Special 
Processing 



From-LE/B2 




SUBSMODE ? 



Yes 



(Exit to ENDSUB ) 
in CONSTANT^ 



RANGESET <r 



See Note 1: 



Fl 



RANGE DT/E3 



Get 

RNGEVAL2 On 
if Required 



From-Gl/E2 




H2 



Turn ERROR 
Bit and 
PFNOPOP On 



<W 



DS/A1 



Skip Over 
Separators 




s 



Note 1: From-KM/Hl, 
KU/H5, 
LE/G1, 
LK/Q, 
LK/D1, 
LL/F3 
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Chart LD — - IKJEFP60 




SKPQLST 



izn 



Set PDEPTR 
= Addr of 
TEMPDE 




G3 



G4 



From-KP/F4 
LH/J3 



PFNOPOP = *T 



SKIPB DS/A1 

Skip Over 
Separators 



Rl = PDE Length 




H5 



ERRORBIT = 




LN 
A2. 



XINPUTB = 
XINPUT 



r^j 



W 
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Chart LE — IKJEFP60 



LE From-LC/fe3 



Delimiter 



Is this 



Is this a RightV No 



SUBSMODE ? 



^ 



s this a Colon ? 



$ 



ENDCMDCK In 
CONSTANT 



SUBSMODE OnJ> 
Tno 

>/\gi 


Yes 


V 


OPERMODE On^S- 


Yes 


|No 


No 


P 


|Yes 
1 LL 1 


^ 


r 
M I- 

y 



E 
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Chart LF — IKJEFP60 




Yes 
SKIPBL2 X Bl 









A2 


No 


Turn On 
ERRORBIT and 
PFNOPOP 








if 




XINPUT = 
XINPUT Plus 
One 



Zero QUALCT 



Turn NAMEREQD 
Off 



W 
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Chart LG — IKJEFP60 



LG I From- LC/A2 
A , J LC/D3 



XINPUT = 
XINPUT + 1 




' 


Bl 




B2 


Move 2 
Bytes to 
TRANAREA 




TRANSQ EE/A1 


Translate to 
Uppercase 










1 



.CI 



IN or OF ? 





No 


< Uppercase x, 
S. Requested S* 

JYes 

/\ei 

^PFDEFLT On ? ^ 

|No 

▼ Fl 




■^— 


Yes 










Move 
Uppercase 
to Buffer 






_ 


G1 






xu 


vJUP3 i 








XINPUT = 
XINPUT + 1 








' 


HI 








BUMP KR/A2 












XINP 


UT 






BLNKTEST 



TYPETEST DU/E1 



Test for 
Separator 



SKIPB 



DS/A1 



Skip Over 
Separators 




XINPUT = 
XINPUT + 1 



Set NAMEREQD 
Add 1 to 
Qualifier 
Count 





Turn On 
ERRORBIT and 
PFNOPOP 



Yes 
ENDNAME ^ 

s! 4 

PFENDSET On ? 




No 
RSTREXIN 1 K4 



XINPUT = 
ENDNMPTR + 1 



XINPUT = 
ENDBAKUP 



C5 



XINPUT = 
XINPUT + 1 



B 



XINPUT = 
XINPUT -3 



J5 



PUSHI DS/G1 



Push IN or 
OF ... 
On Stack 



Must Save IN, 
or OF ... 

K5 



ENDINPUT= 
ENDBAKUP 
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Chart LH — IKJEFP60 



LH | From- LG/C1 



Turn Off 
NAMEREQD 




C2 



Set ERRORBIT, 
PFNOPOP 



No 
SKIPBL3 I Dl 



SKIPB DS/A1 



Skip Over 
Separators 



W 




No 
XINUP5 i Fl 



XINPUT = 
XINPUT + 1 



Add 

Qualifier 
Count to PDE 



Zero QUA LCT 




RESTXIN1 }f 



XINPUT = 
ENDNMPTR + 1 



CHNCK1 



Store 

XINPUT in 
RSVWDSV1 



Set 

ERRORBIT, 

PFNOPOP 



W 
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Chart LJ — IKJEFP60 



From 


- LF/Hl, 


1 LJ 1 

X A1 / 


LF/D2, 
LH/K1 # 
LQ/D3 


5UBSCRPT t 

>/\. Al 




/ SUBSMODE^v 


Yes 


>v Bit On ? y^ 




jfNo 




CKERROR t 




^/^SBl 




<^ERRORBIT On ?p 


Yes 



Set ERROBIT, 
PFNOPOP 



^ 



-c,^ 



Set 
SUBSMODE On 



Dl 



Update PCE to 
Subscript PCE 



TERM PCE ? 



COD24 v F2 



B 



From-FN/Dl 



Is this a \ / N 

Subscript N No . »( Exit RTNCLNUP ) 

PCE? /^ il V InOPER y 



Is Parm Type \Yes 
Statement ? 
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Chart LK — IKJEFP60 



"lK| From-GH/Bl 
A1, 



SUBCTRL2 





ADDQLCT l 


Yes 
r B3 




PDE Qualifier 
Count = 
QUALCT 




<f C3 




Zero 
QUALCT 




W D3 


From - LJ/G1 


Set Name 
Required 
Bit 


Y 







ELCHECK 




Yes 
UPELMCT + G3 



Add One 
to Element 
Count 



H3 



PDEPTR = 
PDEPTR+20 



XINPUT = 
ENDNMPTR 

+ 1 



QP 



ERROR4 



Set 

ERROBIT + 
PFNOPOP 



(Exit to X 

CONSTANT ) 
IKJEFP6C J 



W 



<$ 
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Chart LL -- IKJEFP60 




SUBENDCK 



From - KX/H3, 
LE/F1, 
LK/B1 

A2 



A3 



XINPUT = 
XINPUT + 1 



BUMP KR/A2 



Increment 
XINPUT 




Note 1: 

From- FS/H2, 
GF/E2, 
GH/C2, 
GJ/A2, 
GJ/B1, 
GK/E4, 
GM/A2, 
GM/F1 



From - LE/D2, 
LE/Hl, 
LF/C3, 
LK/A4 



VALRANGE 





PDE SubsCt = 
Element Count 






ir B3 




Reset Element 
Count to 




7 C3 




NAMEREQD 
Bit Off 








VRNGCKl v D3 




RANGE DT/E3 




Check for 
RANGE 




In PDE Based 
On TEMPDE 



s 



RANGERR 



Set ERRORBIT 
and PFNOPOP 



JlNVPSAV in TERM) 
>l Initialization^/ 



^ 
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Chart LM — IKJEFP60 




Turn On 
ERRORBIT and 
PFNOPOP 



->< SUBSMODE On 
? 



Turn On 
SUBSMODE 



^ 



© 




XINPUT = 
XINPUT - 1 




l»\ 


XINUP6 


C5 


Yes 




XINPUT = 
XINPUT + 1 


> n " 






V D5 






TYPETEST DU/E1 


Yes 


Test for 
Separator 



XINUP v G2 



XINPUT = 
XINPUT + 1 



Note 1: 

From- 

KS/F2, 

LA/F1, 

LA/H3, 

LE/D2, 

LE/Hl, 

LK/D1, 

LS/A3, 

LS/B2, 

LS/C3, 

LS/D3, 

LS/t3 



Yes 








Yes 




J 




' 


F4 




1 LN 


XINBACK } 






XINPUT = 
XINPUT - 1 


Yes 


1 


' 




^ 


N 

> 


J 


I 


L 




Yes 



Yes 
RANGE i H3 



RANGE DT/E3 



Set RANGE 
Switches 




Good 
J3 RANGE 



+A >[ 'NVPSAVin ^\ 

\^ TERM Init J 



+0 ERROR 
ERRST I K3 



Set ERRORBIT 
and PFNOPOP 



W 
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Chart LN — IKJEFP60 



Gl 



PDEPTR = Addr 
Pointed to by 
PREVPDEL 



LN I See Note 1: 
. A2 y 





CODE4 Js. 




A3 








/ \ A2 






S ^s. Yes 

<" SUBSMODE On "> ► 

>V ? yS 

1 No 


Reset PDE Ptr 
to TEMPDE 










NOSUBS J B2 












Set PC E Ptr 






From - LCAI2 




to Maj PCE 










ln\ 


























c V 


PRMTEXT i r C2 












Set Digit 










Counter 












to 









Note 1: 

From - KL/E3, 
LC/G1, 
LD/H5, 
LD/J1, 
LD/K1, 
LG/C5, 
LH/E3, 
LH/J3, 
LM/D3, 
LM/E3, 
LM/F4 




E 



Set PDE Ptr 
to PERMPDE 



MSGLEN = 
XINPUT - 
INVPSAVE 



W 



MSGADDR = 
INVPSAV 



Section 3: Program Organization 263 



Chart LP -- IKJEFP60 



~Lp J From-LN/Gl, 
A] J LN/F3 



SPECMSG3 



Set SPECMSG Bit 


' 


Bl 


INVPSAV = 


PRMTF 


TR 



From- LN/D2, 
LN/E4, 
LN/G4 







B3 


S^^S^M 






'PGMID in PDE ^ 

N. ? yS 


No 


MSGAREA LL 
= PDELEN-1 






TYes 






YESPGMID ^ C2 




v C3 




MSGAREA LL 
= LI + L2 




MSGAREA 
Addr = PDE 
Name Ptr 




i 


D2 








MSGAREA 








Name = 








PGMID Ptr 






FN 






\l? 






RTN 


test y 


' 









CODE4A 



From-KP/G3 



W 




~"[p I From - LS/B2 
,G4> 



XINPUT = 
ENDINPUT 



CODE4B y 



XINPUTB = 
XINPUT 



QUALCT = 0, 
ELEMENCT = 0, 
SUBSMODE=0 



CBLNKSV2 = 

Addr 

(OPERTEST) 



K4 



SYSR1 EA/E1 



Write Out 

Message 

Prompt 



<ExiMo ^\ 
SYSR1 Rtn J 
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Chart LQ — IKJEFP60 



LQ | From-LP/F2 
V A1 



Set PCE Ptr to 
Major PCE 




' 


Bl 




B2 


PUNKSV2 = 

Addr 

(CODE4C) 




SUBSMODE=0, 
ELEMNTCT = 










1 



CI 



POSITX DG/H5 



Add PDE to PDL 




VALSUBCK 



SPECOFF 



Turn Off 
SPECMSG Bit 




AANC = TANC, 
PFENDSET=0 



W 




D3 



+ 4 




Turn Off 
SPECMSG Bit 




XINPUT = 








RSVWDSV1 






' 


' 



LISTEST 



^ No / \ No 

OPERMODE ? > — ►< PFLIST On ? 



Restore LINK2 




XINPUT = 
XINPUT-1 



*/ Return +4 J 



E 
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Chart LR — IKJEFP60 



LR From-LQAl2 



LR I From - KL/B4, 
V A3^ KT/B4, 

LS/J3 



f POPSTACK A2 


UPDTEPCE | A3 


END >*v 


SCANF DQ/A4 




Update PCE 
to Next PCE 


. End of Buffer ^ 


Yes 


Pop Stock if 
Possible 


i 


i 


ii 


1™ 












>/^\Bl 




>/ \B3 


S XINPUT =^V No 

N. Semicolon ? >^ 




<Q TERM PCE ? ^ 


[Yes 




jYes 


| CI 












/ ^VC3 


XINPUT = 
XINPUT- 1 






Yes 


^Subscript PCE ?^ 









ENDSETOF 



No 




PFENDSET =0 


> Ji 






V C4 


No 




Turn COBOLMOD 
Off 




u D4 


/" NEXTPCEin ^\ 
\^ PARSE J 


lr 



Note: COBOLMOD bit 

Indicates a PARS2 PCE. 



qp 



LR | From-LQ/Fl 
F2> 



GO BACK 



PDEPTR=Addr 
ofTEMPDE 



^invpsavtermA »| KL I 

^l Initialization J ^v H2 X 



LR I From-LQ/H2 
vH3y 

H3 



SKIPB DS/A1 



Skip Over 
Separators 



MISPAREN 




PSTRIMSG CW/J1 



Ending Paren 

Assumed 

Message 
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Chart LS — IKJEFP60 



LS I From-KZ/JI 



XINPUT = 
PPOINTR, 
XINPUTB = 
PPOINTR 



->< PRMTSCAN On 




B 



Turn PRMTSCAN 
On 



XINPUT = 
XINPUT- 1 



H3 



PROMPTQ DP/G1 




(INVPSAV in \ 
TERM J 

Initialization ^/ 



QP 
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Chart LT — IKJEFP6 



TJ^f - ] From - LB/G2 
A2, 



m 



CORETEST 



Zero 12 
Bytes from 
TANC 


1 


r ci 


TRANSQ EE/A1 


Translate 
Name to 
Uppercase 


1 


Dl 


PDE Data 
Name Ptr 
= PPOINTR 


1 


r ei 


PDELEN-1 = 
PLENGTH 


1 


Fl 


Next Qualif 
Ptr = 
FF000000 


i 


Gl 


Addr Pointed to 
byCHAINPTR 
= TANC 


i 


HI 


CHAINPTR = 
TANC + 8 


' 


Jl 


TANC = 
TANC + 12 




' 



*v 






STALOC DR/B3 


> Yes > 


248 Byte Rl 





'AANCX 8 * 

Equal to or \ |sj No 

Greater Than 
^ENDANC- 
v 240 ? 

[D2 
lYes 



Yesy' Is AANC 
Less Than 
ENDANC^ 



No 
NEWBLOCK 



AANC = 
ENDANC-240 




OANC = AANC 



TEQUALSA w 



G2 



Set TANC = 
AANC 




Set OANC=Rl+8 



AANC=R1 +8 



SETANCS l r 



E3 



TANC = Rl + 8 
ENDANC = Rl 
+ 248 



© 
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Section 4: Directory 



This chart contains information to help you find the appropriate program description , 
flowchart, or assembly listing. It correlates information from three sources: 

• The source code. 

• The executable load modules. 

• This manual. 



r t r t t t t 


"T 1 




Load 


Assembly | Control | 








Module 


Modu 1 e | S ect ion | 


Flow- 


- Dia- | 


| Label | Common Name 


Name 


Name |Name | Description 


chart | gram | 


j. + 




+ + H 





-+ 1 


| ADDRESS | Positional 


IK JPARS 


IKJEFP00|IKJEFP01| scans buffer for address - 


CH 


| 17 | 


j | Address 




| (Prompts for missing data. 

j (Identifies address type. 

j | Bui Ids temporary PDE. 

j j Checks for possible list. 

j (Branches to ILLADR if 

j | illegal address. Otherwise 

j | returns to NEXTPCE. 






(BUMP |Bump the 


IKJPARS2 


1 |IKJEFP60|Test for more data. Pop 


KR 


|18 | 


j | Input 




| |the stack if more data. 






j | Stack 




j [Return +0 on no more data, 
| j +4 on more data. 






| CLEANUP | Cleanup 


IKJPARS 


IKJEFP00|IKJEFP02| Frees all storage obtained 
i j | by Parse when terminal 
j j error occurs. Places 
| IX'FFOOOOOO 1 in Answer 
j | Place. 


EB 


|16,17| 
|19 | 


|DELIMITR| Positional 


IKJPARS 


IKJEFP00|IKJEFP00| Scans buffer for next 


jCK 


|17 | 


j | Delimiter 




j | self -defining delimiter and 
j | sets switch if invalid. 






| DSNAME | Positional 


IKJPARS 


IKJEFP00|IKJEFP01| Scans buffer for DSNAME or 


CZ 


|17 | 


| | Data 




( JDSTHING. Builds temporary 






j | Set Name 




I |PDE. 






| ENDFIELD|End-of- 


IKJPARS 


IKJEFP00|IKJEFP00 (Entered at end of field — 


CB 


1 19 | 


| | Field 




j | Checks for extraneous data 






j (Processing 




| |in buffer of subfield and 






j | Routine 




j (writes error message. 

| (Entered when erasing PDEs 

| | — Releases current RWORK 

| |and gets next RWORK. 

j | Entered at end of subf ields 

j | — all functions executed 

j j for other entries. 






|EXIT | Final 


IKJPARS 


IKJEFP00|IKJEFP00| Deletes PUTLINE and PUTGET. 


CD 


j 19 | 


| | Exit 




j | Frees PWORK and RWORK. 
j | Updates buffer offset to 
j | point one character past 
| jthe last character scanned. 






| FREECORE| Issue j 


IKJPARS2 


|IKJEFP40| Issues freemain to 


KK 


1 18 | 


| |Freemain 




| | Release storage Returns to 






L X J 


L 


1 1 caller. 
L x x _ J 




J i 



B 
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r 


r . ~t 


r t t t 








|Load 


| Assembly 


Control | 


1 1 1 






| Module 


| Module 


Section | 


| Flow- 


|Dia- | 


| Label 


Common Name 


Name 


Name 


Name | Description 


chart 


j gram | 


t 


L 


L 


I 


j 


u 


i j 


| GENS CAN 


General 
Scan 


IK JPARS 

and 
IKJSCAN 


IKJEFP20 | 


IKJEFP20| Scans buffer for character 
(string. 


EC 


14,15 | 


|GETCORE 


Get Core 


IK JPARS 


IKJEFPOO | 


IKJEFP02|Gets more storage 


DU 


|17,19 | 


|IDENT 




IK JPARS 


IKJEFPOO | 


IKJEFP 01 | Scans for buffer positional 
| parameter. 


DJ 


|17 | 


| IKJEFP 40 


IKJRSVWD 
Processing 


IKJPARS2 




IKJEFP40 j Processes the reserved 
|word parameters. 


KF 


18 | 


|IKJEFP50 


IKJOPER 
Processing 


IK JPARS 2 


1 


IKJEFP50| Processes the expression 
| parameter. 


KA 


18 | 


| IKJEFP60 


IKJTERM 
Processing 


IK JPARS 2 


— — — ■ 


IKJEFP60| Processes a constant, 
| variable, or statement 
| number parameter. 


KL 


|18 | 


|IKJPARS 


Parse 

Service | 
Routine 


IKJPARS 


IKJEFPOO] 


IKJEFPOO | Gets main storage for PWORK 
|and RWORK Loads PUTLINE and 
|PUTGET. 


CA 


|16 | 


| IKJPARS2 


Parse 2 
Service 
Routine | 


IKJPARS2 




IKJEFP50|Is loaded by IKJPARS j 
|to process an IKJTERM, 
| IKJOPER, or IKJRSVWD macro | 
j instruction . 


KA 


18 | 


|IKJSCAN 


Command 
Scan | 


IKJSCAN 


IKJEFP30| 


IKJEFP 30 j [scans buffer for command j 
| name. | 


EF 


14 | 


|KEYWD | 


keyword | 
Scan 


IKJPARS | 


IKJEFPOO | 


IKJEFP02 | Scans buffer for keywords j 
| and subf ields . 


DL 


19 | 


|KEYWDP 


Keyword 
Processor | 


IKJPARS 


IKJEFPOO | 


IKJEFPOO | Entered before keyword 
| field is scanned — Sets 
| switch to indicate keyword 
| scan and gives control to | 
| keyword scan routine. 
| Entered after keyword field j 
| is scanned — Checks to see 
|if PDE was built. If not, 
j gets default and gives 
| control to keyword scan. | 
j If so, gives control to 
|Main Control. Entered when 
| erasing PDEs — Zeros the 
| keyword PDE, calculates the 
jnext PCE address. 


CD 


19 | 


| LISTT 


List 


IKJPARS 


IKJEFPOO 


I KJEFP02| Checks for a list and if 
| one was entered . Gets 
I address of first element. 


DT 


17 | 


Jmsngmsg 


Missing 
Message 


IKJPARS 


IKJEFPOO 


IKJEFP02J Issues "MISSING" message 
|when an "ENTER" or "ENTER 
| PASSWORD" prompt message 
(was attempted during 
| no-prompt mode. If HELP 
j messages were associated 
|with the prompt, "MISSING" 
| replaces "ENTER" on the 
| HELP messages. 


EB 


1 19 1 


i~ 


i j 


1 


1 


J 


1 


1 J 
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Label 



Common Name 



Load 
Mo dul e 
Name 



Assembly 
Mo dul e 
Name 



Control 
Section 
Name 



Description 



Flow- 
chart 



Dia- 
gram 



NAMESKP 



Name Skip 



IKJPARS 



NEXTPCE 



POSIT 



POS ITERS 



POSITX 



PCE 

Locating 

Routine 



Positional 
Processor 



Positional 

PDE 

Erase 

Positional 
Exit 



PROMPTQ 



Prompt 
Default 



PSTRIMSG 



PSTRING 



PUSH I 



QSTRING 



RANGE 



Parenthesis 

Assumed 

Message 



Positional 
Parenthe- 
sized 
String 

Push Input 
Stack 



Positional 

Quoted 

String 

Range 



IKJEFPOO 



IKJEFPOO 



IKJPARS 



IKJPARS 



IKJEFPOO 



IKJEFPOO 



IKJPARS 



IKJPARS 



IKJEFPOO 



IKJEFPOO 



IKJPARS 



IKJEFPOO 



IKJPARS 



IKJPARS 



IKJPARS 



IKJEFPOO 



IKJEFPOO 



IKJEFPOO 



IKJPARS 



IKJPARS 



IKJEFPOO 



IKJEFPOO 



IKJEFPOO 



IKJEFPOO 



IKJEFP01 



IKJEFP01 



IKJEFP02 



IKJEFPOO 



IKJEFP01 



IKJEFP02 



IKJEFP01 



Entered after keyword field 
scan — Skips IKJNAME PCEs 
When erasing IKJKEYWD 
PDEs — Checks IKJNAME PCE 
for subfield. If found, 
returns to RECURSE. If not 
found, returns to NEXTPCE. 



Locates the next PCE and 
branches to the appropriate 
PCE processing routine. 



Gives control to 
appropriate 2nd level 
positional parameter 
processor. 



Erases a PDE for a 
positional parameter. 



Checks for and processes a 
range. Checks for and 
processes a list. 
Translates to uppercase if 
string, pstring, gstring, 
value, or ident. 

If prompt was specified — 
Prompts terminal. Saves 
address of command buffer. 
Saves message ID. If 
default was specified — 
Supplies default value. 

If a right parenthesis 
is not found, writes a 
message indicating it is 
assumed. 

Scans buffer for 
parenthesized string-checks 
for embedded parentheses. 



Saves current buffer 
pointer and end -of -buff er 
pointer on input stack. 
Gets more storage when 
stack is full- 

Scans buffer to next TAB or 
non-separator character. 



CE 



CA 



CE 



DG 



DG 



DP 



CW 



cv 



DS 



DE 



DT 



19 



16 



17 



17 



17 



E 



19 



18 



17 



17,19 



17 



17 



I KJEFP02 | Checks to see if a range is 

j possible. I l I 
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r 

| Label 

L 


r 

Common Name 



r 

Load 

Module 

Name 



r 

Assembly 

Module 

Name 


r t 1 

Control | 
Section | 

Name | Description 

j. 




Flow- 
chart 




Dia- 
gram 


[RECURSE 


|Subfield 
Processing 
Routine 


| IK JPARS 




IKJEFPOO 


IKJEFPOO | Gets main storage for 
JRWORK. 


H 

CA 




16 


|SCANF 


Pop the 
Stack 


IKJPARS 


IKJEFPOO 


I KJEFP00| Checks for end of stack. 
|Pops the stack. Issues 
|freemain for previous 
| stack. Returns to caller. 


DQ 


18 


| SCANPOP 


Pop Input 
Stack 


IKJPARS 


IKJEFPOO 


IKJEFP02|Gets last element from 

j input stack. | 


DR 


17,19 


|SKIPB 


Skip 
Separators 


IKJPARS 


IKJEFPOO 


I KJEFP02| Updates buffer offset to 
| first non-seperator 
| character. 


DS 


17,19 


|STALOC 


Storage 
Allocation 


IKJPARS 


IKJEFPOO 


I KJEFP02 | Allocates main storage for 
| PDL and prompt data from 
| storage obtained by 
|GETCORE. 


DR 


16 


| STRING 


Positional 
String 


IKJPARS 


IKJEFPOO 


IKJEFPOO | Prompts for data if switch 
jis set by Delimiter 
[Routine. Scans buffer for 
| character string. 


CF 


17 


|SYSR1 


Error 
Handling 


IKJPARS 


IKJEFPOO 


IKJEFP02| Calculates length of 
| invalid data. Builds 
(informational Message 
| segments. 


EA 


19 


| TERMOCK 


Check 
TERM PCE 


IKJPARS 2 





IKJEFP 40 | checks and tests the 
|IKJTERM PCE 


KK 


18 


|TRANSQ 


Translate 


IKJPARS 

and 
IKJSCAN 


IKJEFP20 


IKJEFP20 | Translates lowercase 

(Alphabetic characters to 
(uppercase. 


EE 


14,15 


| TYPETEST 


Character 
Type Test 


IKJPARS 


IKJEFPOO 


IKJEFP02|Tests current character 
(against selected mask. 


DU 


17,19 


| USERID 


Positional 
Userid 


IKJPARS 


IKJEFPOO 


IKJEFP 01 (Scans buffer for 
| userid/password . 


CW 


17 


| VALUE 


Positional 
Value 


IKJPARS 


IKJEFPOO 


IKJEFPOO | Checks type character. 


CG 


17 


|VCERTN 


Validity 

Check 

Exit 


IKJPARS 


IKJEFPOO 


IKJEFP02|Sets up linkage to 

(user- supplied validity 
| check exit routine. 


DY 


17,19 


| WRITER1 


Informa- 
tional 
messages 


IKJPARS 


IKJEFPOO 


IKJEFP 02 | Writes informational 
| messages. 


DU 


17,19 


| WRITER2 


Prompt 
Messages 


IKJPARS 


IKJEFPOO 


IKJEFP02| Prompts terminal for input 
|if necessary or checks for 
( default. Takes any new 
| data and places it in 
(storage allocated by 
|STALOC. 


DV 
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Section 5: Data Areas 



(All except 
(string. 



This section describes the major data areas used by Command Scan and 
Parse: 

Command Scan Parameter List (CSPL) 

Command Scan Output Area (CSOA) 

Parameter Control Entry for IKJENDP Macro Instruction 

Parameter Control Entry for IKJIDENT Macro Instruction 

Parameter Control Entry for IKJKEYWD Macro Instrcution 

Parameter Control Entry for IKJNAME Macro Instruction 

Parameter Control Entry for IKJPARM Macro Instruction 

Parameter Control Entry for IKJPOSIT Macro Instruction 

string, pstring, and qstring) 

Parameter Control Entry for IKJPOSIT Macro Instruction 

pstring, qstring) 

Parameter Control Entry for IKJTERM Macro Instruction 

Parameter Control Entry for IKJOPER Macro Instruction 

Parameter Control Entry for IKJRSWD Macro Instruction 

Parameter Control Entry for IKJSUBF Macro Instruction 

Parameter Descriptor Entry for IKJIDENT Macro Instruction 

Parameter Descriptor Entry for IKJKEYWD Macro Instruction 

Parameter Descriptor Entry for IKJPARM Macro Instruction 

Parameter Descriptor Entry for IKJPOSIT Macro Instruction 

Parameter Descriptor Entry for IKJPOSIT Macro Instruction 

ds thing) 

Parameter Descriptor Entry for IKJPOSIT Macro Instruction 

( Express ion/value) 

Parameter Descriptor Entry for IKJPOSIT Macro Instruction 

Parameter Descriptor Entry for IKJPOSIT Macro Instruction 

Parameter Descriptor Entry for IKJTERM Macro (Constant) 

Parameter Descriptor Entry for IKJTERM Macro (Variable) 

Parameter Descriptor Entry for IKJTERM Macro (Variable, 

qualifier) 

Parameter Descriptor Entry for IKJTERM Macro 



(address) 

(dsname, 



(userid) 
(value) 



data-name 



S 



(Statement number) 
Parameter Descriptor Entry for IKJRSVWD Macro (Reserved word) 
Parameter Descriptor Entry for IKJOPER Macro (expression) 
Parse Parameter List (PPL) 
Parse Permanent Workspace (PWORK) 
Parse Recursive Workspace (RWORK) 
Syntax Checking Mask Area 
Validity Check Parameter List (VCEPARM) 

The following information is included for each data area: 

> Size, in bytes. 

» Name(s) of the routine (s) that creates it. 

» Name(s) of the routine (s) that update and/or reference it. 
» Field names, displacements, size, and contents. 
» Cross-references to method of operation diagrams and program 
flowcharts. 
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COMMAND SCAN PARAMETER 

Size: 

Constructed by: 

Located in Subpool 78. 
Updated by: 
Used by: 
Contents : 



LIST (CSPL) 

24 bytes 

Terminal Monitor Program or any command 
processor using Command Scan. 



None. 

Command Scan 
Parameter List 



CSPLUPT 



CSPLECT 



CSPLECB 



Displacement 
Dec. Hex. 



12 



16 



20 



10 



14 



Field 
Name 



r t 1 

| Flowcharts | Operation 
| | Diagrams 



h 



EF 



14 



H 



Size in 
Bytes 

+ 

4 



CSPLFLG 



CSPLOA 



CSPLCBUF 



Contents 



-H 



Address of the User Profile Table 
(UPT) 

Address of the Environment Control 
Table (ECT) 

Address of the Event Control Block 
(ECB) 

Address of a Flag Word set as follows: 

X f 00 f - syntax check command name 

X'SO' - do not syntax check command 
name 

Address of the Command Scan Output 
Area (CSOA) (set by IKJEFP30) 

Address of Command Buffer (CBUF) 
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COMMAND SCAN OUTPUT AREA (CSOA) 



Size: 

Constructed by: 
Located in Subpool 1. 
Updated by: 
Used by: 

Contents: 



8 bytes 
Calling routine 

Command Scan 

Terminal Monitor Program or Command Processors 
using Command Scan 

Indicates the results of a scan for command 
name. 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
h + j 













| EF-EH | 14 
i i 


| Displacement 
JDec. Hex. 
t \ 

|0 


r 

| Field 

|Name 


|CSOACNM 


' T 

| Size 
| Bytes 

-f 

1 ^ 


in| 

| Contents 
_ + 

| Address of command name (zero if 
| invalid) 


I 4 


4 


CSOALNM 


1 2 


(Length < 


of command name 


|6 


6 


CSOAFLG 


1 1 


| Flags set as follows: 






|CSOAVWP 




ix'so' - 


valid with parameters 






|CSOAVNP 




|X f 40' - 


valid, no parameters 






CSOAOM 




IX^O 1 - 


questionmark 






CSOANOC 




IX'IO 1 - 


no command name 






CSOABAD 




lx'08 1 - 


invalid command name 


|7 


7 




1 1 


| Reserved (0) 



E 
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COMMAND SCAN WORKSPACE (CSWORK) 



Size: 

Constructed by: 
Located in Subpool 
Updated by: 
Used by: 
Contents : 



91 bytes 
Command Scan 

Command Scan 
Command Scan 
Register save area, internal storage 



r T 1 

| Flowcharts | Operation 
| | Diagrams 

h — + < 

| EF-EH J 14 
i. X .| 



Displacement 
Dec. Hex. 




| Field 
j Name 

+ ^ 

| CSWORK 


Size 
| Bytes 

h 

72 


in| 

j Contents 
_+ 

| 18-word register save area. 


72 


48 


| PDWORD 


8 


| Scratch/Save/Convert area 


80 


50 


|ENDINPUT 


4 


|Last input character address used to 
| determine end of data. 


84 


54 


(PPOINTER 


1 4 


j Address of first character scanned 


90 


5A 


| RETCODE 


1 


j Return code 



H 



j X X X _ { 

I Note : The DSECT for CSWORK is generated by the IKJEFPWA macro 
instruction which also generates the DSECT for PWORK (Parse Permanent 
| Work Area) . 

L 



276 Terminal Monitor Program (Release 21.6) 



PARAMETER CONTROL ENTRY FOR IKJENDP MACRO INSTRUCTION 
Size: 1 Byte 

Located in Subpool 1 



Created by: 

Updated by: 
Used by: 
Contents: 



Command Processor using IKJENDP macro 
instruction. 

None. 

Parse 

This PCE ends the PCL. 



j Displacement! Field 
j Dec . Hex . j Name 
I 

11 







jsize inj 
| Bytes | 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + ^ 

| CD | 19 

.J J. 



Contents 



I 



j Flags : 

I 

I Bit 

| 0-2 

| 3-7 

-j. 



Meaning 

B^OO 1 — end-of -field PCE 

Reserved (0). 



E 
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PARAMETER CONTROL ENTRY FOR IKJIDENT MACRO INSTRUCTION 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 
Used by: 
Contents : 



Variable 



Command Processor using IKJIDENT macro 
instruction. 

None. 

Parse. 

This PCE describes a positional parameter in 
the form of a character string with optional 
restrictions on the beginning character, 
additional characters § and length. 



r t 

| Flowcharts | Operation 
| | Diagrams 
|. + 

| DJ | 17 

-J. x 



Displacement 
Dec. Hex. 






Field 
Name 



Size in 
Bytes 



2 
2 
1 



Contents 



-H 



Flags: 

Bit Meaning when set 

0-2 B l 100 f — IKJPOSIT PCE 

3 PROMPT 

4 DEFAULT 

5 Reserved ( 0) 

6 HELP 

7 VALIDCK 

8 LIST 

9 AS IS 

10 RANGE 
ll-15Reserved( 0) 

Length of PCE. 

Offset in PDL at which PDE is found. 

IDENT options specified. 

Bit Meaning when set 

ASTERISK 

1 MAXLNTH 

2 PTBYPS 

3-7 Reserved (0) 

First Character. 

Hex 

Number Meaning 

Any character accepted. 

1 Alpha required. 

2 Numeric required. 

3 Alphameric required. 
4-FF Not used. 



(Continued) 
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i r 

| Displacement | Field 
|Dec. Hex. | Name 

l x 


T 1 

|Size in 
| Bytes 

j 


: 

j Contents 

L 


1 T 

|8 8 | 


1 

I 1 


r 

Other Characters. 

|Hex 
Number Meaning 




Any character accepted. 
|1 Alpha required. 
|2 Numeric required. 
|3 Alphanumeric required. 
|4-FF Not used. 


|9 9 | 


i 2 


| Length of parameter type including 
I this and following field. 


|11 B | 


1 2 


|X , 0012 f — message segment offset. 


1 — — 1 


| N* 


Parameter type. 


1 — — 1 


| 1** 


| Maximum length (MAXLNTH). 


1 — — 1 


| 1** 


| Length -1 of default or prompt 
| information. 


1 — — 1 


| N* 


| Default or prompt information. 




| 2** 


[Length of total second- level message 
jdata. Including this field and the 
| following field specified by the HELP= 
| parameter . 


1 — — 1 


| 1** 


j Number of second-level messages. 


1 "~"~ """" 1 


| 2** 


j Length of second-level information. 
Including this and the following two 
fields.*** 


1 — — 1 


| 2** 


|X - 000 f message segment offset.*** 


1 — — 1 


| N* 


| Second-level message information. 




| 3** 


Address of validity checking routine. 

| *Optional field of length n N w bytes. 
1 **Optional field. 

|***These three fields are reproduced 
| for each level of second-level 
| message information. 



li-- 



B 



-X x x 
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PARAMETER CONTROL ENTRY FOR IKJKEYWD MACRO INSTRUCTION 
Size: Variable 



Located in Subpool 1 
Created by: 

Updated by: 
Used by: 
Contents : 



Command Processor using IKJEKYWD macro 
instruction 

None 

Parse 

This PCE begins a description of a keyword 
field. The eligible names for this keyword 
field are contained in the PCE's generated by 
subsequent IKJNAME macros. This PCE specifies 
the options for the keyword field. 

r t n 

| Flowcharts | Operation 
| Diagrams 



k- 



H 









| DL | 19 
i i 


r t 

| Displacement | Field 

|Dec. Hex. | Name 

I I 


T "" 1 ... 

|Size in| 

| Bytes | Contents 


|0 


T 

o 1 


T 

1 2 


T 

| Flags : 

iBits Meaninq when set 

| 0-2 B'OIO 1 — IKJKEYWD PCE 

|3 Reserved (0) 

| 4 DEFAULT 

|5-15 Reserved (0) 


|2 


2 I 


1 2 


1 Length of PCE. 


|4 


4 1 


1 2 


| Offset in PDL at which PDE is found. 


|6 


6 I 


1 1* 


| Length -1 of default information. 


|7 


7 I 


| N** 


| Default information 

| *Optional Field. 

(♦♦Optional field of "N w length bytes. 



L 1 X ± J 
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PARAMETER CONTROL ENTRY FOR IKJNAME MACRO INSTRUCTION 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 
Used by: 
Contents : 



Variable 



Command Processor using IKJNAME macro 
instruction. 

None 

Parse 

This PCE describes one of the eligible names 
for a keyword or reserved word field and 
specifies the options associated with this 
name. 



Displacement 

Dec. Hex. 

I 







2 

4 
5 



Field 

Name 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
| + , 

| CE | 19 
_-L X 



Size in 
Bytes 



\ 



2 

1 
N* 

2** 
1** 

N* 



Contents 
Flags : 
Bits Meaning wh3n set 



0-2 B^ll* — IKJNAME PCE 

3-4 Reserved (0) 

5 SUBFLD 

6-10 Reserved (0) 

11 INSERT 

12-15 Reserved (0) 

Length of PCE. 

Length -1 of the name specified. 

Name of acceptable keyword or reserved 
word. 

Offset in PCL to subfield PCE +1. 

Length -1 of keyword string to be 
inserted. 

Keyword string to be inserted. 

♦Optional field of "N" length bytes. 
♦♦Optional field. 



S 



Note : Only the first four fields are valid when the IKJNAME macro is 
coded with the IKJRSVWD macro instruction. 
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PARAMETER CONTROL ENTRY FOR IKJPARM MACRO INSTRUCTION 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 
Used by: 
Contents: 



6 bytes 

Command Processor using IKJPARM macro 
instruction. 

None. 

Parse 

This PCE is at the beginning of the PCL. 



r~ ■ r t 

| Displacement | Field 
| Dec. Hex. |Name 

10 I 



Size in | 
Bytes | 

+- 



r -t 1 

| Flowcharts | Operation 
| | Diagrams 
j. i 

| CA | 16 
_i_ x ., 



Contents 



12 
I 

I 

L 



2 
4 



I 
I 
I 
I 
I 

_jL- 



2 j Length of PCL. 

I 
2 j Length of PDL. 

I 
2 | Offset in PCL to next IKJKEYWD, 
jlKJSUBF, or IKJENDP PCE. 

X 



1 
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PARAMETER CONTROL ENTRY FOR IKJPOSIT MACRO INSTRUCTION (ALL EXCEPT 
STRING, P STRING, AND QSTRING) 



Size: 

Located in Subpool 1 
Created by: 



Variable 



Command Processor using IKJPOSIT macro 
instruction. 



Used by: 
Contents : 



Parse 

This PCE describes a positional parameter which 
includes a delimiter as part of its syntax. 



| Flowcharts | Operation 
| | Diagrams 

J. + : 1 



CF 



17 



r r 


T 


— T 


1 J. 


| Displacement] Field 


|Size in| 




I Dec . Hex . | Name 


| Bytes 




Contents 


i ± 


_L 


L 




l_ .j. .. - 


1 


T 




|0 | 


I ^ 


| Flags 


: 






|Bits 


Meaninq when set 






| 0-2 


B'OOl" — IKJPOSIT PCE 






|3 


PROMPT 






I 4 


DEFAULT 






I 5 


Reserved ( 0) 






I 6 


HELP 






|7 


VALIDCK 






1 8 


LIST 






|9 


ASIS 






|10 


RANGE 






|11 


Reserved (0) 






|12 


S QSTRING 






|13-15 


Reserved (0) 


|2 2 | 


I ^ 


| Length of PCE 


|4 4 | 


I 2 


| Offset in PDL at which PDE is found. 


|6 6 | 


I 1 


|TyP e 
|Hex 


of positional parameter: 






I Number Meaning 




|1 


DELIMITER 






|2 


STRING 






|3 


VALUE 






|4 


ADDRESS 






|5 


PSTRING 






|6 


USERID 






I 7 


DSNAME 






|8 


DSTHING 






|9 


QSTRING 






|A 


SPACE 






JB-FF 


Not used 


|7 7 | 


1 1* 


j Length -1 of default or prompt 
1 in format ion . 


|8 8 | 


| N** 


(Default or prompt information. 



E 



-L 



J X J 

(Continued) 
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T T 

Size in 
Bytes 



t- 



Displacement 
Dec, Hex. 



Field 
Name 



Contents 



2* 

1* 
2* 

2* 

N** 
3* 



Length of total second-level message 
data including this field and the 
following field. 

Number of second- level messages 
specified by the HELP parameter. 

Length of second- level information 
including this and the following two 
fields.*** 

X^OOO 1 message segment offset.*** 

Second-level message information.*** 

Address of validity checking 
routine.*** 

♦Optional field. 
♦♦Optional field of length n N" bytes - 
♦♦♦These three fields are reproduced 
for each level of second-level 
j message information. 
± 
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PARAMETER CONTROL ENTRY FOR IKJPOSIT MACRO INSTRUCTION (STRING, PSTRING, 
QSTRING) 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 
Used by: 
Contents : 



8 Bytes 



Command Processor using IKJPOSIT macro 
instruction. 

None 

Parse 

This PCE describes a positional parameter which 
does not include a delimiter as. part of its 
syntax. 



r T 1 

| Flowcharts | Operation 
| | Diagrams 
j. + 1 

| CF | 17 
J X { 



Displacement) Field |Size in| 

Dec. Hex. | | Bytes | Contents 

+ + + 

| | t\ 1 1 Character string, zero if omitted. 

| | | (The string begins at the first 

| | | character past the enclosing left 

| | | punctuation mark.) 

4 4 | | 2 | Length of the string. (Any 

| | j punctuation marks around the character 

| | | is excluded. This field is zero if 

| | | the string is omitted or if the string 

| | | is null.) 

6 6 | | 1 | Flags: 

I I I Bits Meaning when set 

| | |0 Parameter is present. 

| | 1 1-7 Reserved ( 0) . 

7 7 | | 1 | Reserved (0). 

| | | Note : If the string is null, the 

| j jpointer is set, the length is zero and 

I I I the flag bit is one. 



E 



l 



-j 



Section 5: Data Areas 285 



PARAMETER CONTROL ENTRY FOR IKJTERM MACRO INSTRUCTION 



Size: 

Located in Subpool 1 

Created by: 



Variable 



Command Processor using the IKJTERM macro 
instruction. 



Used by: 
Contents: 



Parse 

This PCE describes a positional parameter that 
may be a Constant, Varable or Statement Number 
parameter- 



Displacement 
Dec. Hex. 



2 
4 
6 



Field 
Name 



Size in 
Bytes 



r r 1 

| Flowchart | Operation 
| | Diagram 
|. + 

| KL J 18 
-J. X ) 



2 
2 
1 



Contents 



Flags: 

Bits Meaning when set 
0-2 B^IO* - IKJTERM PCE 

PROMPT 

DEAFULT 

reserved ( 0) 

HELP 

VALIDCK 

LIST 

AS IS 

RANGE 

This term may be subscripted 

A Reserved Word is chained. 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13-15 reserved 



Length of this PCE 
Offset in PDL to the PDE. 
Type of Positional Parameter. 

Bits Meaning when set 

STATEMENT NUMBER 

1 VARIABLE 

2 CONSTANT 

3 ANY (Constant or Variable) 

4 This is a Subscript term 
5-7 reserved 

Bytes 1-2 



Length of parameter- type field 
Bytes 3-4 



Offset of parameter-type field (set to 
X , 0012"). 



(Continued) 
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1 

Displacement! Field 

Dec. Hex. |Name 
j 


— t r 

|Size in| 

| Bytes | Contents 

j j 


11 B j 


1 t 

| N | Parameter- type field 


j 


I 1* 


Length of PROMPT or DEFAULT 
information 


| 


| N** 


PROMPT or DEFAULT information 


| 


1 2* 


Offset into the PCL of Subscript PCE 


| 


1 2* 


Offset into the PCL of RSVWD PCE 




1 2* 


Length of second-level message 
information including this and 
following field, specified by the HELP 
operand on the macro. 


j 


1 1* 


Number of second-level messages. 


— — — — i 


1 2* 


Length of second- level message 
including this and following two 
fields.*** 


| 


1 2* 


Message segment offset.*** 


| 


| N** 


Second-level message information.*** 




1 3* 


Address of Validity checking routine. 

N Field of variable length 
* Optional field. 
** Optional field of w N n bytes. 
*** Repeated for each second-level 
message. 



B 



± . J 
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PARAMETER CONTROL ENTRY FOR IKJOPER MACRO INSTRUCTION 



Size: 

Located in SUBPOOL 1 

Created by: 

Used by: 
Contents : 



Variable 



Command Processor using the IKJOPER macro 
instruction. 

Parse 

This PCE describes a positional parameter that 
is an Expression. 



Displacement 
Dec . Hex . 






10 



2 

4 
6 



Field 
Name 



T T 

Size in 
Bytes 



r t 1 

| Flowchart | Operation 
| | Diagram 
I. + j 

| KA | 18 

-X JL 



2 



2 
2 



N 
2 
2 
2 
2* 

1* 

N** 



Contents 



Flags: 

Bits Meaning when set 
0-2 B f lll f - IKJOPER PCE 

3 PROMPT 

4 DEFAULT 

5 Reserved (0) 

6 HELP 

7 VALIDCK 
8-15 reserved 

Length of this PCE 

Offset in PDL to the PDE. 

Bytes 1-2 



Length of parameter- type field. 
Bytes 3 - U 



Offset of parameter-type field (set to 
X'0012'). 

Parameter-type field 

Offset into the PCL of RSVWD PCE 

Offset into the PCL to OPERND1 PCE 

Offset into the PCL to OPERND2 PCE 

Offset into the PCL to chained TERM 
PCE. Zero if not present. 

Length of PROMPT or DEFAULT 
information 

PROMPT or DEFAULT information 



(Continued) 
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j Displacement 
Dec. Hex. 



H 



Field 

Name 



"T 

Size in 
Bytes 



2* 

1* 
2* 

2* 

N** 
3* 



Contents 



H 



Length of second- level message 
information including this and 
following field, specified by the HELP 
operand on the macro. 

Number of second-level messages. 

Length of second-level message 
including this and following two 
fields.*** 

Message segment offset.*** 

Second-level message information.*** 

Address of Validity checking routine. 

N Field of variable length. 
* Optional field. 
** Optional field of "N n bytes. 
*** Repeated for each second-level 
message. 
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PARAMETER CONTROL ENTRY FOR IKJRSVWD MACRO INSTRUCTION 



Size: 

Located in Subpool 1 

Created by: 

Used by: 
Contents: 



Variable 



Command Processor using the IKJRSVWD macro 
instruction., 

Parse 

This PCE describes a positional parameter that 
is a Reserved Word. 



r t n 

| Flowchart | Operation 
| | Diagram 
|. + j 

| KF | 18 
-J X 



Displacement 
Dec. Hex. 



Field 
Name 



Size in 
Bytes 



Contents 



-H 



Flags: 

Bits Meaning when set 

0-2 B'lOl 1 - IKJRSVWD PCE 

PROMPT 

DEFAULT 

reserved ( 0) 

HELP 

reserved (0) 

Used with IKJTERM macro as a 

figurative constant. 
9-15 reserved 



2 
2 



Length of this PCE 

Offset in PDL to the PDE. 
used with IKJTERM macro. 



Zero when 



h 



1 



Note : The following fields are omitted if this PCE is used with the 
IKJTERM macro to describe a figurative constant. 

I _ T T r ! 

Bytes 1-2 



10 



A 



N 
1* 

N** 
2* 



Length of parameter- type field 
Bytes 3 - U 



Offset of parameter- type field (set to 
X , 0012 i ). 

Parameter type field 

Length of PROMPT or DEFAULT 
information 

PROMPT or DEFAULT information 

Length of second-level message 
information including this and 
following field, specified by the HELP 
operand on the macro. 



(Continued) 



290 Terminal Monitor Program (Release 21.6) 



i r t 1 

| Displacement | Field |Size in| 

| Dec. Hex. | Name | Bytes | Contents 

i + + + 

| — — | | 1* | Number of second-level messages. 

| — — | | 2* JLength of second- level message 

| | | | including this and following two 

| | | | fields.*** 

| — — | | 2* J Message segment offset.*** 

| — — | | N** | second-level message information.*** 

| | | | N Field of variable length 

j J J J * Optional field. 

| j | | ** Optional field of "N n bytes. 

| | j | *** Repeated for each second-level 

I I message. 



l ± 



j. x J 



E 
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PARAMETER CONTROL ENTRY FOR IKJSUBF MACRO INSTRUCTION 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 
Used by: 
Contents : 



3 Bytes 



Command Processor using IKJSUBF macro 
instruction. 

None 

Parse 

This PCE serves two purposes: It indicates the 
end of the previous subfield (or of the PCL 
itself), and it also indicates the beginning of 
a new subfield. 



i t 1 

| Flowcharts | Operation 

| | Diagrams 

f + 



CA 



19 
i 



Displacement) Field |Size in| 

Dec. Hex. | Name | Bytes | Contents 

+ + + 

| | 1 | Flags : 

I I I Bits Meaning when set 

| | | 0-2 B'OOO" — end-of -field PCE 

| | | 3-7 Reserved (0). 

1 1 I I 2 | Offset in the PCL to the first 

| | jlKJKEYWD PCE, or to the next 

| | | end-of-f ield indicator, if there are 

| | | no keywords in this subfield. The 

| | | next end-of-f ield indicator may be at 

I I Ian IKJSUBF or an IKJENDP PCE. 



^ 



L -L J. J. 



J 
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PARAMETER DESCRIPTOR 

Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents: 



ENTRY FOR IKJIDJENT MACRO INSTRUCTION 
8 Bytes 

Parse 

None 

Command Processor 

Description built by Parse upon finding an 
IKJIDENT parameter. 

r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + 

I DJ I 17 



j Displacement 
| Dec. Hex. 
j. 

10 



I 
16 



|7 

L 



Field 
Name 



T T 

Size in 
Bytes 



4 
2 

1 



Contents 



tCharacter string, zero if omitted. 

Length of character string. 

flags: 

Bits Meaning when set 

Parameter is present. 

1-7 Reserved ( 0) . 

Reserved (0). 



H 



-H 



B 
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PARAMETER DESCRIPTOR 

Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



ENTRY FOR IKJKEYWD MACRO INSTRUCTION 
2 Bytes 

Parse 

None 

Command Processor 

Description built by Parse upon either finding 
an IKJKEYWD parameter or defaulting. 



r t 

| Displacement! Field 
I Dec . Hex • | Name 
j. + „ 

10 I 



"T — " T" 

]Size in| 
| Bytes J 



r t 1 

| Flowcharts | Operation 
I | Diagrams 

f 4 ., 

| DL J 19 

-X X 



H 



Contents 



JThe number (binary) of the 
| corresponding IKJNAME PCE in the PCL. 
| For example 9 if the keyword found 
(corresponds to the first IKJNAME PCE r 
| this field will contain binary 1. 

__L 



PARAMETER DESCRIPTOR ENTRY FOR IKJPARM MACRO INSTRUCTION 



Size: 


8 Byt 


Located in Subpool 1 




Created by: 


Parse 


Updated by: 


Parse 


Used by: 


Parse 


Contents : 


This 



I T 

| Displacement | Field 
| Dec. Hex. | Name 

t 



This 8-byte header is at the beginning of the 
PDL. 

r t t 

| Flowcharts | Operation 
| | Diagrams 
|. + j 

| CA | 16 

j. x ^ 



"T T" 

| Size in | 
| Bytes J 



Contents 



-H 



16 

L 





u 

6 



I 



4 
2 
2 



j tNext block of storage. 

I 

| Subpool number. 



I 

| Length. 
_± 
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PARAMETER DESCRIPTOR 
PARAMETERS) 



ENTRY FOR IKJPOSIT MACRO INSTRUCTION (ADDRESS 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



T 

Displacement | Field 
Dec. Hex. j Name 


r t 

|Size in| 

| Bytes | 

L J. 





T 

o 1 


r T 

1 ^ 1 


4 


4 1 


1 2 | 


6 


6 1 


1 i ! 


7 


7 I 


1 i 1 


8 


8 1 


1 4 1 


12 


C | 


1 2 | 


14 


E 1 


1 1 1 


15 


F | 


1 1 1 


16 


10 | 


1 4 1 


20 


14 | 


1 2 |: 



36 Bytes 

Parse 

Parse 

Command Processor 

Description built by Parse upon finding an 
address parameter. 



r r 1 

| Flowcharts | Operation 
| j Diagrams 
|. + .j 

| CF | 17 
.X J. 



Contents 



tLoad module name — zero if not 
specified. 

| Lengthl — Length of loadname, 
excluding the period. 

j Flags 1: 

[ Bits Meaning when set 
Loadname is present- 
1-7 Reserved ( 0) . 

| Reserved (0). 

t Entry name (name of the CSECT) — 
| zero if not specified. 

JLength2 — Length of entryname f 
excluding the period. 

j Flags 2: 

1 Bits Meaning when set 
Entryname is present. 
|l-7 Reserved (0). 

Reserved (0). 

tAddress string — zero if not 
| specif ied. 

|Length3 — Length of address string. 
|1. Relative address — excludes the 
plus sign. 

1 2. Register address — excludes 
letters. 

1 3. Absolute address — excludes 
periods . 



B 



(Continued) 



Section 5: Data Areas 29 5 



r 

|Dis 
(Dec 
j. 

| 22 


T 

placement | Field 

Hex. |Name 
f 

16 | 


r 

|Size 
| Bytes 

\- 

1 


T 

in| 

j Contents 
_+ 

|Flags3: 

|Bits Meaninq when set 




| Address is present. 
| 1-7 Reserved (0). 


| 23 


17 | 


1 1 


j Reserved (0). 


| 24 


18 | 


1 1 


| Flags**: (Indicates type of address) 

|Hex 

I Number Meaninq 




IX'OO 1 Absolute address. 

jx^O 1 Symbolic address. 

jx^O' Relative address. 

jx^O' General register. 

jx'lO 1 Double precision floating-point 

j register. 

JX'OS* Single precision floating-point 

j register. 


| 25 


19 | 


1 1 


|Sign — Arithmetic sign character used 
j before an expression value. This 
j field is zero if not an address 
| expression. 


|26 


1A | 


1 2 


[Indirect count — The number of levels 
jof indirect addressing. 


|28 


1C | 


1 ^ 


| t First expression/value PDE — If the 
| address is in the term of an address 
| express ion # this is a pointer to the 
| PDE for the first expression value. 
|X , FF000000 i if not an address 
| expression. 


| 32 


20 | 


1 * 


|User word for validity check exit 
| routine. 


|32 


20 | 


1 1 


j Flag field for use by the command 

| processor — describes the user word. 


| 33 


21 | 


1 3 


| Address field for use by the command 
| processor . 


|36 


2 & }| 
■1 


1 4 


| tNext PDE in the list, if LIST was 
| specified. 
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PARAMETER DESCRIPTOR 
DSTHING PARAMETERS) 

Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



r t 

Displacement 
Dec. Hex. 





7 


7 


8 


8 


12 


C 



14 



15 


F 


16 


10 


20 


14 


22 


16 



23 
24 



17 
18 



Field 

Name 



ENTRY FOR IKJPOSIT MACRO INSTRUCTION (DSNAME, 
24 Bytes (30 Bytes if LIST was specified.) 

Parse 

Parse 

Command Processor 

Description built by Parse upon finding a 
dsname or dsthing parameter. 

r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + .J 

| CF | 17 
x x .J 



T T 

Size in 
Bytes 

f — 

4 



1 
4 
2 



1 

4 
2 

1 

1 
4 



Contents 

tDsname, zero if omitted; if the 
dsname is quoted, the pointer points 
to the character after the apostrophe. 

Lengthl — Length of dsname. 
Excluding apostrophes, if any. 

Flagsl: 

Bits Meaning when set 

DSNAME is present. 

1 DSNAME is quoted. 
2-7 Reserved ( 0) . 

Reserved (0). 

tMember — zero if member is omitted. 

Length2 — Length of member, excludes 
par enthe ses. , 

Flags2.: 

Bits Meaning when set 
Member is present. 
1-7 Reserved (0). 

Reserved (0). 

tPassword — zero if omitted. 

Length3 — Length of password. 

Flags3: 

Bits Meaning when set 

Password is present. 

1-7 Reserved (0).. 

Reserved (0). 

tNext PDE in the list, if LIST was 
specified. 



B 
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PARAMETER DESCRIPTOR ENTRY FOR IKJPOSIT MACRO INSTRUCTION 
(EXPRESSION/VALUE PARAMETER) 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



16 Bytes 

Parse 

Command Processor 

Command Processor 

Description built by Parse upon finding an 
express ion/ value parameter. 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + 



Displc 


r 

icement| Field 


T 

|Size 


| CF | 17 

— T J. -L 

inj 


Dec. 


Hex . | Name 

X 


| Bytes 
_ + 

1 4 


| Contents 
_+ 

| t Address string. 





T 

1 


4 


** 1 


1 2 


| Length of address string.. 


6 


6 I 


1 2 


| Reserved (0). 


8 


8 1 


1 1 


| Flags: (Indicates type of expression 
lvalue.) 

|Hex 

I Number Meaninq 




IX'O**' Decimal expression value. 
|X I 02 1 ' Hexadecimal expression value. 


9 


9 1 


1 1 


jsign — Arithmetic sign character used 
| before an expression value. This 
| field is zero if it is not an address 
j expression. 


10 


A | 


1 2 


| Indirect count — The number of levels 
jof indirect addressing. 


12 


c 1 


1 4 


j tNext expression value. (The 

|The last element on the chain is 
| indicated by X'FFOOOOOO' . ) 



X X X J 
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PARAMETER DESCRIPTOR 
PARAMETER) 

Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



ENTRY FOR IKJPOSIT MACRO INSTRUCTION (USERID 
16 Bytes (20 Bytes if LIST was specified. 

Parse 

Command Processor 

Command Processor 

Description built by Parse upon finding a 
user id parameter. 



h 



Displacement 
Dec. Hex. 




4 4 
6 6 



8 


8 


12 


C 



14 



15 

16 



F 
10 



Field 

Name 



T 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
f + ^ 

| CF | 17 



Size in 
Bytes 



4 
2 
1 



1 
4 
2 



1 
4 



Contents 

t User id. 

Lengthl — Length of user id. 

Flags 1: 

Bits Meaning when set 
Userid is present. 
1-7 Reserved (0). 

Reserved (0). 

t Pas sword. 

Length2 — Length of password, 
excluding slash. 

Flags 2: 

Bits Meaning when set 

Password is present. 

1-7 Reserved (0). 

Reserved (0). 

tNext PDE in the list, if LIST was 
specified. 



B 
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PARAMETER DESCRIPTOR ENTRY FOR IKJPOSIT MACRO INSTRUCTION (VALUE 
PARAMETER) 



Size: 

Location in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents: 



8 Bytes (12 Bytes if LIST was specified.) 

Parse 

Command Processor 

Command Processor 

Description built by Parse upon finding a Value 
positional parameter. 



Displacement 
Dec . Hex . 



Field 
Name 



T T 

Size in 
Bytes 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
t + | 

| CF | 17 

.J X 



\ 



Contents 



tTo character string. (The string 
begins at the first character past the 
apostrophe. This field is zero if not 
specified.) 

Length of character string, excluding 
the apostrophes. 

Flags : 

Bits Meaning when set 

Parameter is present. 

1-7 Reserved (0). 

Type -char (The letter preceding the 
quoted string. ) 

tNext PDE in the list, if LIST was 
| specified. 

,-L 
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PARAMETER DESCRIPTOR 
PARAMETER) 

Size: 

Located in subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



ENTRY FOR IKJTERM MACRO INSTRUCTION (CONSTANT 
20 Bytes (24 if LIST is specified) 

Parse 

Parse 

Command Processor 

Description built by Parse upon finding a 
Constant parameter - 



Displacement 
Dec . Hex 



8 


8 


12 


C 


16 


10 



Field 
Name 



T T 

Size in 
Bytes 



r t 1 

| Flowchart | Operation 
| J Diagram 

i. + _, 

| KL | 18 
.J -L 



4 



Contents 



Lengthl - Length of term entered but 
not including signs, decimal points or 
apostrophes . 

Length2 - For floating-point, length 
of digits following letter E. 

Reserved. 

Reserved word number - Number of 
IKJNAME macro that corresponds to the 
entered name. 

Flags: 

Bits Meaning when set 
1 

Parameter is present 

Constant 

Variable 

Statement Number 

Fixed-point numeric literal 

Non- numeric literal 

Figurative constant 

Float in g-pt. numeric literal 



H 



Byte 



1 

2 

3 

4 

5 

6 

7 

Byte 2 



1 

2 
3-7 



Sign on constant is minus 

Sign on exponent of floating 

point is minus 

Decimal point is present 

Reserved 



Pointer to string of digits. 
Pointer to the exponent. 
Pointer to the decimal point. 
Note: Pointers are zero if not 



present- 



B 
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PARAMETER DESCRIPTOR ENTRY FOR IKJTERM MACRO INSTRUCTION (VARIABLE 
PARAMETER) 



Size: 

Located in subpool 1 



20 Bytes (24 if LIST is specified) 



Created by: 
Updated by: 
Used by: 



Parse 



Parse 



Command Processor 



Contents : 



Description built by Parse upon finding a 
Variable parameter. 



r t 1 

I Flowchart | Operation 

(Diagram 



h 



KL 



| 18 



-i 



Displacement 
Dec. Hex 







7 


7 


8 


8 


12 


C 


16 


10 


17 


11 


18 


12 


19 


13 



Field 
Name 






L |Size in 
j Bytes 

X J 


Contents 

L 


T 1 
I 4 


r 
Pointer to data-name. 


I 1 


Lengthl - Length of data- name. 


1 1 


Reserved. 


1 1 


Flags : 




Bits Meaninq when set 




Parameter is present 

1 Constant 
| 2 Variable 

1 3 Statement Number 
4-7 Reserved 


1 1 


Reserved. 


1 4 


| Pointer to PDE for first qualifier. 
|Set to X'FFOOOOOO 1 if no qualifiers. 


1 4 


| Pointer to program- id name. 


1 1 


|Length2 - Length of program-id name. 


1 1 


| Number of qualifiers. 


1 1 


[Number of subscripts,. 


1 1 


(Reserved. 




iNote: Pointer* length and number 
(fields are zero if not present. 


X. — 
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PARAMETER DESCRIPTOR ENTRY FOR IKJTERM MACRO INSTRUCTION (VARIABLE 
PARAMETER - DATA-NAME QUALIFIER) 



Size: 

Located in subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



12 Bytes 

Parse 

Parse 

Command Processor 

Description built by parse upon finding a 
data-name qualifier on a Variable parameter- 



| Displacement! Field 
| Dec . Hex | Name 


|0 


T 

o 1 


|4 


4 1 


|5 


5 | 


|6 


6 1 


|7 


7 1 


I® 


8 1 



r t 1 

| Flowchart | Operation 
| | Diagram 
j. + 

| KL | 18 
T J j. 4 



_ T T 

| Size in| 
| Bytes | 



+ + . j 



X X- 



Contents 

4 | Pointer to data-name qualifier. 

I 
1 | Length of data-name qualifier. 

i 

1 | Reserved. 

I 
1 | Flags : 

I 

I Bits Meaning when set 

| 0-7 reserved 

I 
1 | Reserved. 

I 
4 | Pointer to PDE for next qualif er. Set 

| to X , FF000000 f on last qualifier. 
x J 



E 
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Data Areas 30 3 



PARAMETER DESCRIPTOR 
NUMBER PARAMETER) 

Size: 

Located in subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



ENTRY FOR IKJTERM MACRO INSTRUCTION (STATEMENT 
20 Bytes 

Parse 

Parse 

Command Processor 

Description built by Parse upon finding a 
Statement Number Parameter. 



r t 1 

| Flowchart | Operation 
| | Diagram 

t + , 

| KL | 18 

.J J. 



h 



Displacement 
Dec . Hex . 





1 1 

2 2 

3 3 

4 4 
6 6 



8 


8 


12 


C 


16 


10 



Field 

Name 



| Size in 
| Bytes 

1 



1 
1 

1 
2 
2 



4 
4 
4 



Contents 



j 



Lengthl - Length of program-id. 
Length2 - Length of line number. 
Length3 - Length of verb number. 
Note : Lengths do not include periods 



and are set to zero if not entered. 

Reserved. 

Reserved. 

Flags : 

Bits Meaning when set 

Parameter is present 

1 Constant 

2 Variable 

3 Statement Number 
4-15 Reserved 

Pointer to program-id. 

Pointer to line number. 

Pointer to verb number. 

Note: Pointers are set to zero if not 



entered. 
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PARAMETER DESCRIPTOR 
PARAMETER) 

Size: 

Located in subpool 1 

Created by: 

Updated by: 

Used by: 

Contents: 



ENTRY FOR IKJRSVWD MACRO INSTRUCTION (RESERVED WORD 
8 Bytes 

Par se 

Parse 

Command Processor 

Description built by Parse upon finding a 
Reserved word Parameter. 



r t 1 

| Flowchart j Operat ion 
| j Diagram 



h 



KF 



18 



H 



| Displacement 
Dec. Hex. 



10 

I 
12 



I 
16 



1 7 
l 




2 

6 



Field 
Name 



T" T 

Size in 
Bytes 



2 
2 

2 
1 



Contents 



Reserved- 
Reserved word number - Number of the 
IKJNAME macro that corresponds to the 
entered name. 

Reserved. 



Flags : 



Bits 




1-7 



Meaning when set 
Parameter is present- 
Reserved. 



Reserved. 



E 
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PARAMETER DESCRIPTOR ENTRY FOR IKJOPER MACRO INSTRUCTION (EXPRESSION 
PARAMETER) 



Sizes 

Located in subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



8 Bytes 

Parse 

Parse 

Command Processor 

Description built by Parse upon finding an 
Expression Parameter. 



T- T 

| Size in 
| Bytes 



r t 1 

| Flowchart | Operation 
| | Diagram 
t + i 

| KA | 18 

.j. ± 4 



| Displacement | Field 
| Dec. hex. | Name 

, + 

10 



I* 

I 

16 



6 



17 

L 



2 
1 



Contents 



Reserved. 

Reserved. 

Flags : 

Bits Meaning when set 

Parameter is present 

1-7 reserved 

Reserved. 



-X 
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PARSE PARAMETER LIST (PPL) 



Size: 

Constructed by: 
Located in Subpool 1 
Updated by: 
Used by: 
Contents : 



28 bytes 

Command Processor 

Parse 
Parse 
Parameter List for Parse 













r t 1 

| Flowcharts | Operation | 
| | Diagrams | 
I. + ^ 

| CA | 15 | 


1 1 

| Displacement 
| Dec • Hex • 


r 

Field 
Name 


— T 

|Size 
| Bytes 


— x : 

in| 


-_L -L 4 

Contents j 


t 

|0 


^ 




h 

PPLUPT 


— h 

1 ^ 


_+ 

| Address of the 
1 (UPT) 


, 

User Profile Table | 


|4 


4 


PPLECT 


1 * 


| Address of the 
| Table (ECT) 


Environment Control | 


|8 


8 


PPLECB 


1 4 


| Address of the 


Event Control Block | 


|12 


C 


PPLPCL 


1 4 


| Address of the 
1 (PCD 


Parameter Control List | 


|16 


10 


PPLANS 


1 4 


(Address of the 


fullword area where 










| Parse will place the address of the | 










| Parameter Description List (PDL) | 


120 


14 


PPLCBUF 


1 4 


| Address of the 


Command Buffer (CBUF) | 


|24 


18 


PPLUWA 


1 4 


| Pointer to user work area (for | 










| validity check 


routines) . | 



Q 
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PARSE PERMANENT WORKSPACE (PWORK) 

640 bytes 



I Size: 
Constructed by: 
Located in: 
Updated by: 
Used by: 
Contents: 



Parse 

Subpool 

Parse and IKJPARS2 

Parse and IKJPARS2 

Parameter Lists for routines, input stack f 
temporary PDE for positional parameters, PARSE 
Save Area, internal tables and work areas. 



r t 1 

| Flowchart | Oper at ion 
| | Diagrams 

j. + 1 

| CA J 16 
.J -J. 



1- 



Displacement 
Dec. Hex. 





72 

80 

84 
88 
90 
91 
96 
104 

108 

112 





48 

50 

54 
58 
5A 
5B 
60 
68 

6C 

70 



Field 
Name 



PWORK 

PDWORD 

ENDINPUT 

PPOINTR 
PLENGTH 
RETCODE 



T T 

Size in 
Bytes 

72 

8 

4 



Contents 
18-word Register Save Area 



SUBRWORK 
XPDL 

TEMP SAVE 

PFLAGS 

PFLIST 

PFDEFLT 

PFENDF 

ADREXP 

HEXBIT 



4 
2 
1 
3 
8 
4 



Scratch/Save/Convert Area 

Address of end of Command Buffer. 
Used to determine end-of -field. 

Address of first character scanned. 

Length of field scanned. 

Return Code. 

Not Used. 

Scratch/Save Area for GETCORE routine. 

Address of Parameter Descriptor List 
(PDL). 

Used to temporarily store register 1 
before linking to ATRANQ routine. 

Permanent Workspace Flags (First Byte) 

Setting Meaning 

List is being processed. 

Default has been supplied. 

End of buffer has been 
reached. 

Address expression is 
indicated. 

Address expression contains a 
hexadecimal character. 



X" 


80" 


X' 


40 f 


X" 


20 1 


X" 


10' 


X' 


08' 



(Continued) 
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j Displacement! Field 
I Dec Hex . | Name 
+ 



1113 



71 



ilia 72 



PFNEW 

DECBIT 
PFLAGS2 

PFSKPINV 
RNGEVAL1 

ONERBIT 
TWORBIT 
RNGEVAL2 

REGBIT 

FLTERBIT 

BREAKBIT 

PFLAGS3 

PFSTPRMT 
PFONE 

LOADBIT 

ENTRYBIT 

PFNULL 
LPRNFND 



T T 

Size in| 
Bytes | 

+ + 

IX'02' 

I 
I 
I 



Contents 



Used by address routine to 
indicate a new valid address 
entryname (with or without 
loadname qualification). 



JX'OI 1 Address expression is decimal. 

I 

| Second Flag Bytes. 

I 

I Setting Meaning 

|X°80° Validity check routine 

| requested a reenter message 

j only. 



JX^O 1 



jx^o 1 



|X f 10 f 

I 

I 

jx'oe 1 



ix'oaj 



Address routine processed | 
first value of range | 

parameter. j 

I 
Control bit used during scan | 
by address routine. j 

I 
Control bit used during scan | 

by address routine. | 

I 
Address routine processed | 
second value of range | 
parameter. j 

i 

Control bit used during scan | 
by address routine. j 

I 
Control bit used during scan \ 
by address routine. j 

i 

Used by address routine to | 
indicate a break character in j 
the parameter. | 



B 



JX'02' 

I 

I 

IX'01' 

I 
I 
I 

I'Third Flag Byte. 

I 

I Setting Meaning 

IX'SO 1 Prompt for string. 



-JL 



|X f 40 f 

I 

1 
|X f 20 J 

I 
I 
I 
|X f 10 , 

1 

I 
I 

.jx'o.s - 



ix'oa' 

I 

-X 



At least one PDE has been | 

built. j 

I 
Control bit used by address J 

routine to indicate loadname j 

data. | 

i 

Control bit used by address j 
routine to indicate entryname | 
data. j 

I 
A null line was entered after | 

a prompt. J 

I 

A left parenthesis was found | 

by the error routine. j 



(Continued) 



Section 5: Data Areas 309 



Displacement 
Dec- Hex. 



115 



116 



120 

124 

128 
128 
132 

136 
140 
140 



73 



74 



78 

7C 

80 
80 
84 

88 
8C 
8C 



Field 
Name 



PFSPACE 

PFMORE 

PFIAGS4 

PFENDLIM 

PFLSTEND 
PFVCMSG 

PFPDDATA 

PF SLASH 

PFENDSET 

PFNOPOP 

CKRANGE 

PFLAGS5 

PFSQSTR 
INVPRMPT 

PANCHOR 

PANCHORT 

PGETLIST 
PGETLNTH 
PGETRADR 

PGETMDSP 
PIPDLCUR 



Size in 
Bytes 



Contents 



X"02' A positional space parameter 
was found; the positional 
string routine knows when to 
end the string. 

X'Ol' The left parenthesis of a 

subfield was also used as the 
left parenthesis of the list 
within the subfield. 

Fourth Flag Byte 

Setting Meaning 

X^O' End of self- delimiting string 
found. 

X'40' End of LIST. 

X f 20" Validity Check routine 
message. 

X^O 1 Processing Prompt or Default 
data. 

X'08" Password for DSNAME/USERID. 

X'04" Backup pointer for ENDINPUT. 

X , 02 f Do not pop the stack. 

X'Ol' Check for RANGE. 

Fifth Flag Byte 

Setting Meaning 

X f 80 f Special QSTRING handling. 



-H 



X f 40' Check for invalid message 
prompt. 

Address of last area of main storage 
space. 

Address of internal main storage space 
anchor. 

Parameter List for GETCORE routine. 

Number of bytes requested. 

Address of place in which address of 
storage is to be placed. 

Subpool number from which to get core. 

First Input Stack. 

Address of Current Stack (Initially 
points to PIPDLCHN) 



(Continued) 
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r 

| Displacement 
|Dec. Hex. 
L 


r 1 

Field 

Name 


r 

Size in 

Bytes 


r 

| Contents 

L 


|144 


1 

90 




PIPDLCHN 




4 


r 

| Address of Next Lower Stack (0) 


|148 


94 


NME 


80 


[storage for First Stack. 


|228 


E4 


PIPDLX 


1 


| Index to next free space in this Input 
| Stack (Initially points to PIPDLCHN + 

|4) 


|229 






1 3 


|Not Used. 


|232 


E8 


PLINKSV1 


4 


|Save area for return addresses 
| internal subroutines which use other 
| internal subroutines. The latter may 
juse still other subroutines. 


|236 


EC 


IN VP SAVE 


4 


| Address of invalid parameter. 


|240 


F0 






[Addresses for Keyword Scans. 


|240 


FO 


PKEYWDPS 


4 


| Address of current IKJNAME PCE. 


|244 


F4 


PKEYWDPC 


4 


| Address of current IKJKEYWD PCE. 


|248 


F8 


1 PKEYWDPX 


4 


[Save area for IKJKEYWD PCE address 
jwhen erasing the corresponding PDE. 


|252 


FC 


PKEYWDTB 


4 


| Address of keyword PCE for which a 
[name PCE has been found. 


|256 


100 


| PKEYWDPM 


1 <* 


| Address of IKJKEYWD PDE. 


|260 


104 


PTABLEAD 


4 


| Address of the start of the PCL. 


| 264 


108 


PTABLEND 


4 


| Address of the end of the PCL. 


|268 


IOC 


TEMPPDE 




j Temporary PDE for positional 
| parameters. (80 Bytes) 


| 268 


IOC 


TEMPPDE2 




|IKJPARS only (36 Bytes) 


|268 


IOC 


DATAPTRl 


4 


j Address of string , pstring qstring, 
[password, dsname, loadname, or value. 


|272 


110 


DATALEN1 


2 


j Length of string, pstring, qstring, 
[password, dsname, load name, or value. 


|274 


112 


DATAFLA1 


1 


| X ■ 8 * — above parameter present 
jx'OO" — above parameter not present 


|275 


113 


DATAFLB1 


1 


[Type code for value. 


|276 


114 


DATAPTR2 


4 


[Address of member or entry name. 


|280 


118 


DATALEN2 


2 


j Length of member or entry name. 


|282 


11A 


DATAFLA2 


1 


[x'SO* — member or entry name present. 
jx^O 1 — member or entry name not 
pr es ent . 



B 



J 

(Continued) 
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— T T 

| Size in | 

| Bytes J Contents 



I Dis placement j Fiel d 
| Dec- Hex. | Name 

| 283 11B |DATFLB2 
I 



J 284 

I 

| 288 

I 

| 290 

I 
I 
|291 

I 

1 292 

I 
I 
| 29 3 

i 
|294 

I 
|296 

1 
|300 

1 
|304 

I 

1 348 

I 
|352 

I 
I 
1,35.3. 

I 

j 354 

I 
|355 

I 

J 

I |356 

I 

I 

J 360 

I 

;»|;364 

I* 

;|'|384 
1 

I 
388 



IJ3S8 
i 
|392 

I 

.1 

I I 396 

L 



I 1 
I 

11C |DAIAPTR3 j 4 

I I 

120 |DATALEN3 j 2 

I 1 

122 |DATAFLA3 | 1 

I I 

I I 

123 |DATAFLB3 | 1 

I I 

124 IDATAFLAG | 1 



125 IDATASGN | 1 

I 1 

126 JDATAICT | 2 

I I 

128 JDATAEXP j 4 

I J 

12G JDATAOSER | 4 

I. 1 

130, ICBADD I 44 

I I 

15C: IENDBAKDP | 4 

I 1 

160 IPDELIM | 1 

I I 

I I 

1*61 jiPPCOUNOT -j. 1 

I i 

162 JPPDESIZE j 1 

163 JPERRCODE j 1 
I I 

i r 

164 iPKEyWDVL \ 4 
I I 

I I 

168 JRNG2ADDR j 4 

I I 

16C JSEGLIST | 20 

I I 

I I 

180 JPREVPDEL j 4 

i '\ 



184 |VCEPARAM | 

I I 

I I: 

184 jPDEADR \\ 

I I 

188 |USERWORD | 

I I 

I I 

18C JVALMSG j 

I I 



j Reserved (0) 

i 

| Address of password or address 

i 

| Length of password or address 

I 

[X'BO 1 — Password or address present 

jx^O 1 — Password or address not present 



(Reserved 

j Following four fields used by address 
| routine. Register notation 



i 



| Sign of first value 

1 

| Indirect Addressing Count 

I 

| Address of next Express ion /Value PDE 

I 

| User Word 

\ 

| IKJPARS2: additions to temporary PDE. 

I 

| Backup for ENDINPUT 

I 

| Self-Defined Delimiter stored by 
j DELIMITER routine. 

I 

| Length of the PCE 

I 

| Length of the PDE 

I 

| Index to address table for rescan 

[address after prompt or default 

J 

J Number of IKJNAME in PCE for Keyword 
| found. 

I 

[Address of second PDE for a range. 

I 

| List of Message Segments for PUTLINE 
and PUTGET service routines. 



I 
4 J Address of the previous PDE. Used by 
{the validity check exit routine. 

I 

| Parameter list for validity check exit 
| routine., (12! Bytes) 

I 
4 | Address of PDE just constructed. 

. 1: 
4 | Seventh Word from Parse Parameter 
| List. 

I 
4 | Address of second level message. 

j Initialized ±o X , FFOO0OOO t Jay Parse* 

(Continued) 



312 Terminal Monitor Program (Release 21.6) 



1 
Displacement 
Dec. Hex*! 


r I 
Field 
Name 


r -i 
Size in| 
Bytes 


■ ' " 1 

Contents | 
j 


400 


190 




MSGCODE 




1 


T 

Index to Message Address- | 

Message segment containing the last | 
primary message ID. This is used as | 
the first segment in a second-level | 
message passed to PUTLINE and PUTGET. | 
It contains the byte header required | 
by PUTLINE and PUTGET and the word | 
"ENTER". j 


401 


191 


PRIMSGID 


21 


Primary 


message segment* j 


422 


1A6 


SAVLSLEN 


2 


Save area for storing core size of | 
second- level message routine- | 


424 


1A8 


PLUSSEG 


8 


Second-level message segment. j 


432 


1B0 


PUTLPTR 


4 


Address 


of 


PUTLINE service routine j 


436 


1B4 


PUTGPTR 


4 


Address 


of 


PUTGET service routine | 


440 


1B8 


UPTADDR 


4 


Address 


of 


User Profile Table (UPT) j 


444 


1B6 


ECTADDR 


4 


Address 
CECT) 


of 


Environment Control Table | 


448 


ICO 


ECBADDR 


4 


Address 


of 


Command Processor's ECB. j 


452 


1C4 


A00000 


4 


Address 


of 


Parameter Block j 


456 


1C8 


OPERAND 


4 


Pointer 
PCE 


to 


last PCE under an IKJOPER | 


460 


ICC 


RSVWDPCE 


4 


Pointer 


to 


IKJRSVWD PCE | 


464 


1D0 


TERMXPCE 


4 


Pointer 


to 


IKJTERM PCE | 


468 


1D4 


OPERPCE 


4 


Pointer 


to 


IKJOPER PCE [ 


472 


1D8 ; 


OPERSVE 


4 


Pointer to 
express ion 


left parenthesis of j 
in process j 


476 


1D6 


RSVWDSV1 


4 


LINK reg. 


SAVE AREA | 


480 


1E0 


RSVWDSV2 


4 


LINK Reg. 


SAVE AREA | 


484 


1E4 


CBLNKSV1 


4 


LINK Reg. 


SAVE AREA | 


488 


1E8 


CBLNKSV2 


4 


LINK Reg. 


SAVE AREA | 


492 


1EC 


l ENDNMPTR 


4 


Pointer 
scanned 


to 


end of last data-name j 


496 


1F0 


CHAINPTR 


4 


Pointer to chain word for data- name j 
qualifier PDEs j 



B 



(Continued) 
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"1 
Displacement 
Dec, Hex. 


r i 

Field 
Name 


r ■ — 

Size 
Bytes 


T • 

in| 

| Contents 

L 


500 


1F4 




PDEPTR 




t 4 


+ 

| Pointer to next available space in the 
| temporary PDE 


504 


1F8 


AANC 


4 


| Storage anchors used to control 


508 


1FC 


TANC 


4 


| allocation of data-name qualifier 


512 


200 


OANC 


4 


| PDEs in storage obtained by 


516 


204 


ENDANC 


4 


| the STALOC routine 


520 


208 


PRMTPTR 


4 


| Pointer to start of invalid data for 
| special message format 


524 


20C 


OPERLL 


2 


| Length of all PDE fields under the 
| IKJOPER and associated PCEs 


526 


20E | 


MSGAREA 




| Special messages (6 Bytes) 


526 


20E | 


MSGLEN 


2 


| Length of first segment for special 
| mess age format 


528 


210 


MSGADDR 


4 


| Pointer to first segment for special 
| message format. 


532 


214 


DIGITCT 


1 


| Counter for length of digit strings 


533 


215 


ELEMNCT 


I. 1 


| Number of data- name qualifiers 


534 


216 


QUALCT 


1 


| j Number of data-name qualifiers 


535 


217 | 


CBFLGS1 
COBOLMOD 
OPERMODE 
SUBSMODE 

i NAMEREQD 

ERRORBIT 
IRSVDPRMT 

| OPERPRMT 

RC16 


1 


| Flags set as follows: 

|X"80 f - IKJPARS2 has been entered 

IX^O" - IKJOPER has been entered 

|X - 20 f - IKJTERM is processing a 
| subscript 

IX^O 1 - IKJTERM expects a data -name to 
| follow in the buffer 

jx^S' - IKJTERM encounters an error 

|X l 04 i - A reserved word has been 
| prompted for 

|X i 02 , - An expression has been 
| prompted for by IKJOPER. 

jx'Ol 1 - A 16 return code is returned 



L ± -X J. - J 
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Displacement 
Dec- Hex. 

j 


Field 
Name 

; 


r 1 

Size in 
Bytes 


" 1 

| Contents | 

L J 


536 


218 


CBFLAGS2 
SPECMSG 

LFTPAREN 

RHTPAREN 

CHAINTRM 

PARS2IN 
PRMTSCAN 
BUFPOPED 
RNGADDED 




1 

1 


r 7 

Flags set as follows: | 

|X f 80' - A special format error message | 
lis necessary. | 

IXMO 1 - A left paren is to be insertedj 
in the special message buffer j 

X^O' - A right paren is to be | 
| inserted in special message buffer j 

IX'10' - A chained IKJTERM macro is in j 
process j 

X f 08 f - PARS2 is loaded. | 

X f 04" - Prompt data being scanned. j 

X , 02 f - Buffer popped in SCANF Routine | 

X - 01 f - First value of RANGE is added. | 


537 


219 


CBFLAGS3 

FIRSTNAM 

CTFOUND 

BLNKFLAG 


1 


Flags set as follows: j 

|X"80' - First Variable data-name | 

X f 40' - Beginning of subscript found j 

X"20" - Blank in invalid message j 
format j 


538 


21A 


CBFLAGS4 


1 


Res erved j 


539 


21B 




1 


Unus ed | 


540 


21C 


TRANAREA 


2 


IKJTERM compares for OF or IN | 


542 


21E 


CORELEN 


2 


Res erved j 


544 


220 


PARS 2 ADR 


4 


Address of IKJPARS2 load module | 


548 


224 


VCONAD 


4 


Address of VCON table in IKJPARS | 


552 


228 


GOREGSV 


4 


Return address from subroutine j 


556 


22C 


TERMBASE 


4 


IKJTERM base reg save area | 


560 


230 


OPERBASE 


4 


IKJOPER base reg save area j 


564 


234 


BASE3SV 


4 


PARSE REG3 save area j 


568 


238 | 


BASE2SV 


4 


PARSE REG2 save area | 


572 


23C | 


BASE1SV 


4 


PARSE REG1 save area | 


576 


240 


RBASESV 


4 


PARSE RBASE reg save area | 



B 



(Continued) 
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Displacement 

Dec. Hex. 

| 

580 244 



Field 
Name 



Size in 
Bytes 



Contents 



584 
588 
592 
608 

612 



248 
24C 
250 
260 

264 



612 264 



616 268 



620 26C 



624 270 



628 274 



632 278 



636 27C 



CBLRET 

COREADDR 
AUTOBASE 
WORKSAVE 
PLINKSV2 

PUTLINE 
PUTLINE 



PUTGET 



4 
4 

16 
4 



640 280 



Pointer to IKJPARS2 after using 
subroutine in IKJPARS 

Address of storage for message 

DATAREG save area 

WORK registers save areas 

Return address from Validity Check 
routine 

Allocate space in which to move the 
List form of the PUTLINE and PUTGET 
macro instructions. (32 Bytes) 

Zeroes (0) (set control and output 
fields) 

Zeroes (0) (will contain address of 
output line) 

Zeroes (0) (will contain address of 
formatted output) 

Zeroes (0) (set control and output 
fields) 

Zeroes (0) (will contain address of 
output) 

X" 00008 000" (set control and output 
field) 

Zeroes (0) (will contain input buffer 
address ) 

Aligned on doubleword boundary for 
FREEMAIN. 
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PARSE RECURSIVE WORKSPACE (RWORK) 



Size: 

Constructed by: 
Located in: 
Updated by: 
Used by: 
Contents : 



25 bytes. 

Parse 

Subpool 

Parse 

Parse 

Internal work areas and pointers. 






Displacement 
Dec . Hex . 




4 

8 

12 

16 

20 
24 




4 

8 

C 

10 

14 

18 



Field 

Name 



T T 

Size in 
Bytes 



r t 1 

| Flowcharts | Operation 
| | Diagrams 

j. + 4 

| CA | 16 
J J. 



RPCEAD 
RBASESV 

RXPCESV 

RLINKSV 

RKEYSV 

RLINKSV1 

RFLAGS 

RFKYPRSE 

RFQDSNM 

RFERASE 
RFPRES 

RFKEYWDS 

RFMEMB 

RFNOTQ1 

RFNOSKIP 



4 
4 

4 
4 
4 
4 

1 



Contents 



Address of IKJSUBF PCE. 

Address of previous Recursive 
Workspace. 

Address of resume PCE. 

Return address from RECURSE routine. 

Address of the first IKJKEYWD PCE. 

Return address from erase mode. 

Flags set as follows: 

X^O' - keywords have been scanned 
once. 

X"40' - a quoted data set name is 
being processed. 

X f 20 f - a PDE is being erased. 

X'lO 1 - a keyword PCE was found in the 
PCL. 

X f 08 f - the next recursive processing 
will be for a keyword. 

X f 04 f - a member name is being 
processed. 

X , 02 f - the first qualifier is not 
being processed. 

X f 01* - blanks should not be skipped. 



B 
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SYNTAX CHECKING MASK AREA 



Size: 

Located in: 
Created by: 

Used by: 
Contents : 



20 bytes 

Subpool 1 

IKJEFP00 creates all five words of masks. 
IKEJEP30 creates (and uses) only the first four 
words. 

GENSCAN in IKJEFP20 

Masks used to control the syntax checking of 
command name and parameters. 



Displacement 
Dec • Hex . 



Field 
Name 



DSNCNTL 
MEMBCNTL 



PWSYNTAX 



USIDCNTL 



r t 1 

I I Operation 
| Flowcharts | Diagrams 
|. + ^ 

| CF | 17 
.J J. 



Size in 
Bytes 



— + 



Contents 

A word of one- byte masks, as follows: 

X'UO 1 - asterisk not allowed. 

X'Ol" - first character must be 

alphabetic. 

X , 03* - other characters must be 

alphameric. 

X'OS* - maximum permissible DSNAME or 

member name length. 

A word of one-byte masks, as follows: 

X^O 1 - asterisk not allowed. 

X'OS 1 - first character must be 

alphameric. 

X'OS' - other characters must be 

alphameric. 

X'OS" - maximum permissible password 

length. 

A word of one-byte masks, as follows: 

X^O' - asterisk not allowed. 

X'Ol* - first character must be 

alphabetic. 

X' 03* - other characters must be 

alphameric* 

X'Ql* - maximum permissible userid 

length. 



l 
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j Displacement 
Dec. Hex. 



Field 

Name 



Size in 
Bytes 



Contents 



112 



DSTCNTL 



116 



10 



KEYSNTX 



A word of one-byte masks, as follows: 

X f C0 f - asterisk is allowed. 

X'Ol' - first character must be 

alphabetic. 

X f 03 f - other characters must be 

alphameric. 

X'OB' - maximum permissible DSTHING 

length. 

A word of one-byte masks, as follows: 

X'40' - asterisk not allowed. 

X'Ol" - first character must be 

alphabetic 

X'OS 1 - other characters must be 

alphameric. 

X f lF' - maximum permissible length. 



B 
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VALIDITY CHECK PARAMETER LIST (VCEPARM) 



Size: 

Constructed by: 
Located in: 
Updated by: 
Used by: 
Contents : 



12 bytes 

Parse 

Subpool 1 

Command Processor 

Command Processor 

Address of the PDE, Address of user work area, 
address of second-level message (set by 
validity check routine) . 



r t 1 

| Flowcharts | Operation 
| | Diagrams 

k + ^ 

| DY | 17 
.0 X ^ 



| Displacement! Field jsize inj 
I Dec . Hex . j Name j Byte s j 



Contents 




4 



| PDEADR 

I 
|USEW0RD 

I 
I 
j VALMSG 

I 



4 (Address of the PDE. 

I 
4 | Address of the user Work Area (seventh 

jword in the Parse Parameter List) 

i 

4 | Address of Second Level Message 

I (initialized to X •FFOOOOOO* by Parse) 



L J- i J. J 
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Section 6: Diagnostic Aids 



This section contains the following charts: 

I • Messages (Figure 22) — a list of messages issued by Command Scan 

and Parse routines. 
| • Register Usage (Figure 23) — a summary of the use of general 

registers 0-15. 
| • Return Codes (Figure 24) — a summary of return codes and their 

meanings. unless otherwise specified , return codes are contained in 

register 15. 

Other useful diagnostic information is contained in the Parse 
Permanent Workspace (PWORK) and the Parse Recursive Workspace (RWORK) . 
These data areas are described in Section 5. 



r t 

| Message ID | Message 



|IKJ56700A 

|IKJ56701 

|IKJ56702I 

JIKJ56708I 

JIKJ56709I 

JIKJ56710I 

JIKJ56711I 

|IKJ56712I 

|IKJ56713I 

JIKJ56715I 

1IKJ56704I 

JIKJ56714A 

JIKJ56703A 

JIKJ56706I 

JIKJ56707I 

|IKJ56716I 

JIKJ56705 

|IKJ56717I 



ENTER xxx 

MISSING xxx + 

INVALID , xxx , yyy 

INVALID PASSWORD 

INVALID DATA SET NAME, yyy 

INVALID USERID,yyy 

INVALID ADDRESS, yyy 

INVALID KEYWORK,yyy 

INVALID VALUE, yyy 

INVALID STRING, yyy 

xxx AMBIGUOUS 

ENTER PASSWORD FOR xxx 

REENTER 

ENDING QUOTE ASSUMED, xxx 

RIGHT PARENTHESIS ASSUMED, xxx 

EXTRANEOUS INFORMATION - IGNORED, xxx 

MISSING PASSWORD FOR xxx 

INVALID xxx 



j Issued by 

"+ 

| IKJEFP00 
|IKJEFP00 
| IKJEFP00 
| IKJEFP00 
[IKJEFP00 
| IKJEFP00 
|IKJEFP00 
| IKJEFP00 
| IKJEFP00 
j IKJEFP00 
| IKJEFP00 
| IKJEFP00 
|IKJEFP00 
| IKJEFP00 
[ IKJEFP00 
| IKJEFP00 
| IKJEFP00 
IIKJEFP00 



El 



Figure 22. Messages: Command Scan and Parse Service Routines 
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to 
to 



s 



13 



3 

o 

H» 
<+ 
O 
h 

►d 
H 
O 



0) 
3 



CD 
H 
(D 

0) 
to 





IKJEFP00 


IKJEFP20 


IKJEFP30 


IKJEFP60 


Register 


Name 


Contents 


Name 


Contents 


Name 


Contents 


Name 


Contents 





R0 


Work/Parameter register — 
must be zero. 


R0 


Work/Parameter register — 
must be zero. 


R0 


Work/Parameter register — 
must be zero. 


R0 


Work/Parameter register. 


1 


Rl 


Work/Parameter register — 
must be one. 


Rl 


Work/Parameter register — 
must be one. 


Rl 


Work/Parameter register — 
must be one. 


Rl 


Work/Parameter register. 


2 


R2 


Work register. 


R2 


Work register. 


R2 


Work register. 


R2 


Basel register. 


3 


R3 


Work register. 


R3 


Work register. 


R3 


Work register. 


R3 


Base2 register. 


4 


XINPUT 


f Next character to scan. 


XINPUT 


[ Parameter to be scanned. 


XINPUT 


J Next character to scan. 


XINPUT 


Pointer to next character to scan. 


5 


XINPUTB 


♦ Last character scanned --used to 
compute length of scanned data. 


XINPUTB 


♦ Last character scanned — used to 
compute length of scanned data. 


XINPUTB 


| Last character scanned — used to 
' compute length of scanned data. 


XINPUTB 


Pointer to last character scanned. 


6 


XPCE 


f Current PCE. 


XPCE 


If called by Parse — points to current PCE. 
If called by command scan—not used. 


XFLAGS 


T Input flag word. 


XPCE 


Pointer to current parameter 
control entry ( PCE ) 


7 


BASE3 


Additional base register for 
first CSECT. 


R7 


Not used. 


CSOAPTR 


| Output area. 


R7 


Work register. 


8 


LINK2 


Second level linkage register. 


LINK2 


Second level return register. 


LINK2 


Second level linkage register for 
linkage between subroutines. 


LINK2 


Linkage register. 


9 


LINK1 


First level linkage register. 


LINK1 


First level return register. 


LINK! 


First level linkage register for linkage 
between mainline and subroutines. 


LINK! 


Linkage register. 


10 


BASE2 


Base register for second CSECT. 


RIO 


Not used. 


CSPLPTR 


J Command scan parameter list. 


RIO 


Work register. 


11 


BASE1 


Mainline base register. 


Rll 


Not used. 


CBUFPTR 


J Command buffer. 


PWAREG 


Base register for command 
workspace. 


12 


RBASE 


Base register for current 
recursive workspace. 


R12 


Not used. 


BASE 


Base register for command scan. 


R12 


Base register for Getmain 
(automatic storage allocation) 


13 


PBASE 


Base register for command 
workspace. 


WORKBASE 


Base register for common 
workspace — must be 13. 


WORKBASE 


Base register for command scan. 


R13 


Work register. 


14 


R14 


Return register. 


R14 


Work register. 


R14 


Scratch/call register. 


GOREG 


Linkage register (between IKJEFP00- 
PARS2ENT and IKJEFP60-LINKRET) 


15 


R15 


Call register. 


BASE 


Linkage register used as base 
register. 


R15 


Scratch/call register. 


R15 


Return index for return to IKJPARS2 
(contains 0,+4,+8, + 12, or +16) 



Figure 23. Register Usage: Command Scan and Parse Service Routines 



Routine 


Return Code 
Decimal 


Meaning 


IKJEFPOO 


00 


Success. 




04 


Unable to prompt, parameter missing. 




08 


Processing interrupted by attention. 




12 


Invalid parameters passed to parse by command processor. 




16 


No space available for PDL. 




20 


Validity check routine requested termination. 




24 


Invalid parameters passed to the IKJTERM, IKJOPER, or IKJRSVWD macros. 


IKJEFP20 


~ 


Return codes are not used. The address returned to in the calling program is determined 
by the results of this program. 


IKJEFP30 


00 


Success. 




04 


The CSPL contains invalid parameters. (The output area and command buffer offset 
are unchanged.) 



Figure 24. Return Codes: Command Scan and Parse Service Routines 



B 
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Part 4: Dynamic Allocation Routines 



□ 
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Section 1: Introduction 



The dynamic allocation routines consist of the Dynamic Allocation 
Interface Routine (DAIR) and the special TSO SVC 99 routines. DAIR 
handles the allocation and freeing of data sets needed by the Terminal 
Monitor Program, the TSO command processors, and other TSO problem 
programs- In general, DAIR obtains information about a data set and, if 
necessary, invokes the SVC 9 9 routines to perform the requested 
operation. 

DAIR and the SVC 99 routines provide the services of: 

• Obtaining the current status of a data set. 

• Allocating a data set. 

• Building and storing lists of data set attributes. 

• Assigning attributes to data sets. 

• Freeing a data set or attribute list. 

• Concatenating data sets. 

• Deconcatenating data sets . 

© Updating the DCB and/or DSE blocks as necessary to conform with the 
change of status in allocation. 

Usually the data sets a terminal user will need are resident before 
he logs onto the system, and he has included DD statements in his logon 
procedure to reserve space for them in the Task Input/Output Table 
(TIOT) . The user may, however, allocate data sets during a terminal 
session if the data set resides on a volume already mounted at the time 
of the request for allocation. 

As supplied with TSO, DAIR will reside in SYSl.LINKLIB and will 
execute in the user's foreground region with the protection key assigned 
to that region. SVC 99 will reside in SYS1. SVCLIB. The installation 
may choose to make DAIR resident in the TSO Link Pack Area (TSLPA) in 
the region assigned to the Time Sharing Control Task (TSCT) . 

Specifying Data Sets at LOGON 

When the terminal user logs on to the system, the LOGON scheduler 
invokes the user LOGON procedure, which contains data definition (DD) 
statements that define the data sets for use during the session. The 
MVT Job Management routines read and interpret the user LOGON procedure 
and construct standard system control blocks, including the Task 
Input/Output Table (TIOT) and the special Data Set Extension (DSE) for 
TSO, as shown in Figure 25. 

The TIOT plays a central role in dynamic allocation. It contains 
allocation information that includes the relationship between DDNAMEs 
and devices; it is an interface between the SVC 99 routines and MVT Job 
Management. 

The data set extension (DSE) is the TSO control block that includes 
the relationship between DDNAMEs and DSNAMEs; it therefore provides an 
interface between DAIR and the SVC 99 routines. 
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Data Set Extension 



Sample LOGON Procedure 



//USERID 


JOB 




//USERPROC 


EXEC PGA/HKJEFTOO 


//STEPLIB 


DD 


DSN=D82JOB08,DISP=SHR 


// 


DD 


DSN=PVTCMD,DISP=OLD 


// 


DD 


DSN-SYS1.CMDUB,DISP=SHR 


//DD1 


DD 


DYNAM 


//DD2 


DD 


DYNAM 


//SYSUT1 


DD 


DSN=&&SYSUT1 ,UNIT-2314, 


// 




SPACE=(TRK,(10,5)) 


//HELPDD 


DD 


DSN=SYS1.HELP,DISP=SHR 


//DD3 


DD 


DYNAM 


/'/DD4 


DD 


DYNAM 



Task Input/Output Table 



USERID 


USERPROC 


UDERPROC 


STEPLIB 


fuCB 


OLD 


# 


\ UCB 




t 


tuCB 




DD1 





DYNAM 


DD2 





DYNAM 


SYSUT1 


JUCB 




HELPDD 


fuCB 




DD3 





DYNAM 


DD4 





DYNAM 






When the terminal user logs onto the system, the LOGON scheduler 
invokes the user logon procedure which contains DD statements that 
define the data sets to be used during the session. MVT job management 
routines read and interpret the user logon procedure and construct 
standard system control blocks including the Task Input/Output Table 
(TIOT), and the special Data Set Extension (DSE) for TSO. 

Figure 25. Specifying Data Sets at Logon 



STEPLIB:D82.JOB08 



K:PVTCMD 



\ KrSYSl.CMDUB 



DD1:NULLFILE 



DD2:NULLFILE 



SYSUT1:&SYSUT1 



c 



HELPDD:SYS1.HELP 



DD3-.NULLFILE 



r 



DD4:NULLFILE 



328 Terminal Monitor Program (Release 21.6) 



Section 2: Method of Operation 



This section describes the method of operation of the dynamic allocation 
routines, which include the Dynamic Allocation Interface Routine (DAIR) 
and the special TSO SVC 99 routines. DAIR handles the changes to 
allocation of data sets needed by TSO problem programs, including the 
Terminal Monitor Program and the TSO command processors. The SVC 99 
routines provide the actual movements of data that effect these changes, 
which include allocating and freeing data sets f concatenating and 
deconatenating them, changing their attributes, and updating the DSE to 
reflect the changes made. 

Method of Operation Diagram 20 shows how the DAIR service routine 
obtains information about data sets and, if necessary, invokes the SVC 
99 routines to perform the requested service. 

Briefly, here is what happens: 

• When the Terminal Monitor Program, a TSO command processor, or TSO 
problem program needs to use a data set, it links to DAIR and passes 
it the address of a DAIR parameter block. 

• The first two bytes of the DAIR parameter block contain an entry 
code that defines the service requested. (For example, DAIR entry 
code X'OOOS" is a request to allocate a data set by DSNAME.) 

• The DAIR control routine (DAIRCTRL) sets up the DAIR Work Area 

(DAIRWA) and branches and links to the appropriate DAIR subroutine. 
DAIR subroutine names are of the form DAIRnn, where nn is the entry 
code. 

• The DAIR subroutine performs the requested service. If this service 
requires one of the functions of SVC 99, the subroutine sets up a 
special entry code to denote which of the functions is necessary and 
invokes the SVC. Upon return from the SVC, the DAIR subroutine 
returns control to the calling program. 

The TIOT plays a central role in dynamic allocation. It contains 
allocation information that includes the relationship between DDNAMEs 
and I/O devices; it is an interface between SVC 99 and MVT Job 
Management . 

The DSE contains allocation information that includes the 
relationship between DDNAMEs and DSNAMEs; it provides an interface 
between DAIR and SVC 99. 

Method of Operation Diagram 20 shows the Data Set Extension (DSE) the 
Task Input/Output Table (TIOT), and other system control blocks. 



DAIR Service Routine 

The following discussions describe how DAIR provides an interface 
between the TSO problem programs that need functions of dynamic 
allocation, and the SVC 99 routines that provide them. As Figure 26 
shows, however, some requested DAIR functions do not require the 
execution of SVC 99. 



□ 
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ENTRY TO DAIR 



DAIR is invoked by a LINK macro instruction to entry point IKJEFDOO. 
entry, register 1 points to the DAIR Parameter List (DAPL). 



At 



The DAIR Parameter List contains: 

• The address of the User Profile Table (UPT). 

• The address of the Environment Control Table (ECT) . 

• The address of the calling program's Event Control Block (ECB). 

• The address of the Protected Step Control Block (PSCB). 

• The address of the DAIR Parameter Block. DAIR Parameter Block names 
are of the form DAPBnn, where nn is the DAIR entry code. 

DAIR uses the second and fourth fields when initializing the DAIR work 
area (DAIRWA) ; the Region Control Task (RCT) uses the first four fields 
during swap in and swap out. 

The DAIR parameter block is the major input to IKJDAIR. The first 
two bytes contain an entry code (for example X f 0008 - ) which defines the 
operation requested. The remaining bytes contain such things as the 
DDNAME for the data set, the DSNAME for the data set, and whether the 
userid must be prefixed to the DSNAME. 



SET UP AND INITIALIZATION 

At entry f DAIR gets main storage for the DAIR Work Area (DAIRWA) and 
initializes it f and gets the address of the Data Set Extension (DSE) , 

DAIR then gets the DAIR Parameter Block and branches to the 
appropriate DAIR subroutine- 



PREFIXING USERID TO DSNAME 

If bit 2 of DAnnCTRL is on, DAIR employs the USERID subroutine to prefix 
the userid to the specified DSNAME. The format of the DSNAME buffer is 
as follows : 



r 

i 


Byte 


T 

J. 


Contents 


1 




T 






0-1 




The length, in bytes, of the DSNAME. 




2-45 




The DSNAME, left justified, — the buffer is 
only as long as necessary to contain the 
DSNAME occupying it. 



L J._ 



J 



The USERID subroutine gets the userid from the DAIR Work Area and 
prefixes it to the DSNAME. 
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SEARCHING THE DSE CHAIN 

Usually, DAIR needs to get some kind of information about a data set. 
If so, the SEARCH subroutine is entered to search the DSE chain for a 
specified DSNAME or DDNAME or for an available entry. The DSE contains 
the following information: 

• The DDNAME. 

• The DSNAME. 

• The member name, for a partitioned data set. 

• The condition of the data set, as follows: 

- Allocated dynamically. 

- In use. 

- A member of a partitioned data set. 

- Available for dynamic allocation. 

- Dynamically concatenated. 

- Permanently allocated. 

• The status of the data set at the time of allocation (NEW, OLD, MOD, 
or SHR) . 

• The normal and abnormal disposition for the data set. 

• The organization of the data set, as follows: 

- Indexed sequential (IS). 

- Physical sequential (PS) . 

- Direct organization (DO). 

- Partitioned organization (PO). 

• The address of the TCB for the routine for which the data set is 
allocated. (Zero, if the data set was allocated during LOGON.) 



FUNCTIONS PERFORMED BY DAIR 



DAIR gets information from the DSE and, if necessary, invokes one of the 
SVC 99 routines to perform the requested operation. In general, the 
DAIR calling routine may specify data sets by either DDNAME or DSNAME. 
An entry code specifies the function requested, as shown in Figure 26. 



Entry 

Code 

I 



X'OO' 



X'04' 



X 1 


08 f 


* 


X' 


oc f 


* 


X' 


10' 


* 


X 1 


14 . 




X' 


18* 


* 


X' 


1C 


* 


X' 


24' 


* 


X' 


28 1 




X' 


2C 1 


* 


X' 


30" 


* 


X' 


34 ■ 


* 



Function Performed by DAIR 



-J 



Searches the DSE for information about a data set by DDNAME or 

DSNAME. 

Searches the DSE for information about a data set by DSNAME. 

If not found, searches the system catalog. 

Allocates a data set by DSNAME. 

Concatenates data sets by DDNAME. 

Deconcatenates data sets by DDNAME. 

Searches the system catalog for all qualifiers for a DSNAME. 

Frees a data set. 

Allocates a data set to a terminal. 

Allocates a data set by DDNAME, or DSNAME if necessary* 

Performs a list of operations indicated by other DAIR entry 

codes. 

Marks DSE entries not available for the specified task. 

Allocates a SYSOUT data set. 

Builds and maintains attribute lists (ATRCBs) and ATRCB chain. 



El 



| ^Requires execution of some SVC 99 Routines 

L 



Figure 26. Functions Performed by DAIR 
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SVC 99 Dynamic Allocation Routines 



DAIR invokes SVC 99 to perform the following functions: 

• Allocate data sets. 

• Free data sets. 

• Concatenate data sets. 

• Deconcatenate data sets. 

• Change the attributes of an allocated data set. 

• Update the DSE. 

• Build and maintain attribute lists (ATRCBs) and the ATRCB chains. 

In general , SVC 99 must have the DDNAME for the data set. DAIR makes it 
possible for the calling prog-ram to specify data sets by DSNAME rather 
than by DDNAME. An entry code specifies the function requested as shown 
in Figure 27. 




JX^O' 

jx^i 1 

IX'02' 
|X f 03" 
IX'O**' 
|X f 06 f 
|X'07 f 



Update the Data Set Extension (DSE). 

Define or allocate a data set by DDNAME. 

Free a data set by DDNAME. 

Concatenate a data set by DDNAME. 

Deconcatenate a data set by DDNAME. 

Change the attributes of a currently allocated data set. 

Build and maintain attribute lists (ATRCBs) and ATRCB chains. 



Figure 27. Functions Performed by SVC 99 

SVC 99 always receives control from DAIR at entry point IGC00099, the 
beginning of the allocation control routine. This routine performs a 
control routing function. It examines the entry code in the Dynamic 
Allocation Parameter Block from DAIR to determine the requested 
function, then performs initialization appropriate for the routines that 
process the request. Before transferring control to the processing 
routines, IGC00099 obtains and partially initializes main storage for 
the Dynamic Allocation Work Table (DAWT), a common work area for all the 
SVC 99 routines. See Section 5 for a description of the DAWT and how 
the SVC 99 routines use it, according to the function under execution. 

Figure 28 shows the method of operation diagrams for dynamic 
allocation and a legend for using them. 
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A 



22 



23 



TABLE OF CONTENTS 



20 



24 



n 

25 & 



26 



27 



LEGEND 



M.O. Di 


agram 


Diagram Title 


20 


— 


Dynamic Allocation: Overview 


21 


— 


Allocating Data Sets 


22 


— 


Freeing Data Sets 


23 


- 


Converting Data Set Attributes 


24 


— 


Concatenating Data Sets 


25 


— 


Deconcatenating Data Sets 


26 


-- 


Updating the DSE and DCB 


27 


— 


Building and Maintaining ATRCBs. 




^> 



> 



Start using the diagram here. 
Control flow arrow. 
Data flow arrows. 



► Reference the designated area. 

A ^J / Pointers to, or 

| J /^ reference to. 



1.2 
A,B 



Refer to the corresponding 
superscripts in the cross- 
reference tables. 



El 



Figure 28. The Method of Operation Diagrams for Dynamic Allocation 
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ALLOCATING DATA SETS 

Method of Operation Diagram 21 shows how SVC 99 performs the steps of 
data set allocation and invokes the direct access device space 
management (DADSM) routines — SVC 32 — to secure the secondary storage 
space for the data set. The user requests this function through DAIR, 
which passes a parameter block that contains the DDNAME for the data set 
to be allocated, and the function code (X f 01') to designate the 
requested function to the allocation control routine. 

Allocating a data set is the process of initializing a set of system 
control blocks to describe it according to user specifications, and 
securing space for it on direct access secondary storage. 

The principal descriptors for the data set reside in the Job File 
Control Block (JFCB) , so the dynamic allocation routines construct an 
entire new JFCB for it. 

The correlation between the data set name (DSNAME) and the DDNAME of 
the data set is in the SIOT; the dynamic allocation routines provide 
this correlation appropriately. 

The place-holder for the data set in the task is the DD entry with 
the DDNAME and other appropriate information. The DD entry, and others 
like it for each data set, are the principal parts of the TIOT. 

Additional information about the TIOT and JFCB appears in the System 
Control Blocks SRL , GC28-6628. Additional information about the SIOT 
appears in the MVT Job Management PLM , GY28-6605. 

FREEING DATA SETS 

Method of Operation Diagram 22 shows how SVC 99 frees — or unallocates 
— data sets. The user requests this function through DAIR, which 
passes a parameter block that contains the DDNAMEs for each data set to 
be freed, and the function code (X f 02 i ) to designate the requested 
function to the allocation control routine. 

Freeing data sets is the process of releasing the operating system 
resources in use to maintain them; this includes disposing of the data 
sets according to a set of user-defined or default specifications. 

Releasing the resources is a general way of saying that the 
unallocation routines may (but do not in all cases have to) dequeue the 
data set from the system task, nullify or free a number of system 
control blocks as appropriate, and free the direct access storage space 
that the data set occupies. 

Disposing of the data sets means doing some discrete processing to 
free each data set in some specially defined way. For example, the 
disposition processing may direct the data set to SYS0UT for printing, 
or for storing on tape. 

In any event, when all those operating system facilities that 
constitute the resources in use by the data set become free, they are in 
turn available for use by other data sets. 

The system control blocks principally involved in freeing data sets 
are the same as those for allocating them: the JFCB, the SIOT, and the 
TIOT. Most of the processing of these control blocks occurs in the 
unallocate work area, a 58 4 byte area of main storage that does not 
appear on Method of Operation Diagram 22. The unallocation routines 
secure this area for various operations at the beginning of processing 
and release it at the end. 
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Additional information about the JFCB and the TIOT appears in the 
System Control Blocks SRL , GC28-6 628. Additional information about the 
SIOT appears in the MVT Job Management PLM , GY28-6660. 

CONVERTING DATA SET ATTRIBUTES 

Method of Operation Diagram 23 shows how SVC 99 converts data set 
attributes . DAIR passes a parameter block that contains the DDNAME of 
the data set whose attributes need changing, and the function code 
(X'06 1 ) to designate the function to the allocation control routine. 

Converting data set attributes is the process of changing those 
fields that record the nature of a data set — its characteristics, or 
attributes -- in the system control blocks- The system control blocks 
principally involved are the job file control block (JFCB) and the step 
input/output table (SIOT). DDNAME changes in the SIOT, however, also 
require corresponding changes to the DDNAME in the TIOT associated with 
the same data set. 

Detailed information about the TIOT and JFCB appears in the System 
Control Blocks SRL , GC28-6628. Additional information about the SIOT 
appears in the MVT Job Management PLM , GY28-6660. 

CONCATENATING DATA SETS 

Method of Operation Diagram 24 shows how SVC 99 concatenates data sets. 
The user requests this function through DAIR, which passes a parameter 
block that contains the DDNAME s for each data set to be concatenated, 
and the function code (X'03") to designate the requested function to the 
allocation control routine. 

Concatenating data sets is the process of grouping them together 
relative to a single DDNAME. This grouping shows up internally as 
contiguous data definition (DD) entries in the TIOT, one entry for each 
data set. Only the first of these TIOT DD entries has a nonblank DDNAME 
field. The DDNAME in this field is the one, therefore, that identifies 
the concatenated group of data sets. 

To prepare the grouping of DD entries that results in concatenated 
data sets, the concatenation routines build a new TIOT, with the DD 
entries correctly rearranged, and move it over the old one. Then they 
update the chain of SIOTTTRs, if necessary, to re-order it so that the 
SIOTTTRs still correspond to the rearranged DD entries. If the 
concatenation results in the relocation of any TIOT DD entries for open 
data sets, data control block (DCB) updating is necessary; for this, one 
of the concatenation routines prepares a parameter list for the DCB 
Update routine. 

Additional information about the TIOT appears in the System Control 
Blocks SRL , GC28-6628. 

DECON CATENATING DATA SETS 

Method of Operation Diagram 25 shows how SVC 99 deconcatenates data 
sets. The user requests the function through DAIR, which passes a 
parameter block that contains the DDNAME for the concatenated group, and 
the function code (X f 04') to designate the requested function to the 
allocation control routine. 



C 
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Dec one ate na ting data sets is the process of reassigning each data set 
in the concatenated group to its own unique DDNAME. This is done by 
retrieving the DDNAME from the respective SIOT for the data set and 
replacing the name in the proper TIOT DD entry, which was previously 
blanked out to concatenate the data set. 

Additional information about the TIOT appears in the System Control 
Blocks SRL , GC28-6628. Additional information about the SIOT appears in 
the MVT Job Management PLM , GY28-6605. 

UPDATING THE DSE AND DCB 

Method of Operation Diagram 26 shows how SVC 99 updates both the data 
set extension (DSE) and the data control block (DCB). 

Updating the DSE is the process of changing the information in it to 
conform with the most current status of allocation. Usually this 
updating occurs at the conclusion of some other operation in SVC 99, and 
the routines in the update function provide the normal common exit to 
DAIR from any of the other functions in the SVC. DAIR may, however, 
enter the update function directly (that is, through the allocation 
control routine — IGC00099 -- only, rather than through another SVC 
function) to mark a data set as not in use; this happens every time any 
command processor returns control to the terminal monitor program, which 
in turn invokes DAIR for the function. 

Updating the DCB is a related, but separate operation that sometimes 
provides the entry into the update function from the concatenation 
function. It is necessary only when rearrangement of the TIOT DD 
entries for open data sets has taken place as a result of concatenating 
other data sets. It consists of making the TIOT DD entry offset 
information for any rearranged open data set coincide in its respective 
DCB with the new rearranged position of the entry in the TIOT. 

A full description of the DSE appears in "Section 5: Data Areas"; a 
full description of the DCB appears in the System Control Blocks SRL , 
GC28-6628. 



MANAGING USER-SELECTED DATA SET ATTRIBUTES 

Method of Operation Diagram 2 7 shows how SVC 99 builds and maintains the 
lists of data set attributes that the user may select to override the 
default attributes provided by TSO. The user requests this function 
through DAIR, which passes a parameter block with data for the requested 
attribute management operation, and the function code (X'01 9 ) to 
designate the attribute management function to the allocation control 
routine. 

Assigning a data set its attributes is the process of defining a set 
of descriptors for it in portions of the Job File Control Block (JFCB) . 
Ordinarily, TSO provides a set of default descriptors for each data set 
allocated, so that the JFCB will be complete at allocation time. The 
operating system refers to these descriptors to complete data control 
block (DCB) information that defines the data set attributes. 

When the TSO user enters his own choice of data set attributes at the 
terminal, however, the ATTRIB command processor and DAIR format his 
choices into data that SVC 99 can process. This resultant DAIR 
attribute control block (DAIRACB) provides the information for SVC 99 to 
build its own attribute list (ATRCB) in the format of corresponding 
default attribute information in the JFCB. SVC 99 incorporates the 
ATRCB into a chain of ATRCBs for later use in allocating a data set (or 
data sets) with the listed attributes. 
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When -the user allocates a data set with his previously listed choice 
of attributes, the ALLOCATE command processor invokes DAIR and SVC 99 to 
overlay the TSO default attributes in the JFCB with the proper ATRCB 
from the chain. This separate operation makes the user attributes 
available to the operating system for the appropriate DCB. 

Conversely, when the user attributes are no longer desirable, SVC 99 
unchains the ATRCB that lists them. This occurs when the user logs of f r 
or when he uses the FREE command to abrogate his selection of attributes 
during a terminal session. The subpool storage made available by the 
unchaining operation is subsequently reusable. 

Additional information about the JFCB appears in OS/VS2 System Data 
Areas , SY28-0606. 

EXIT FROM SVC 99 AND FROM DAIR 

The SVC 99 routines return to DAIR using an EXIT macro instruction from 
the DSE update routines after successful execution of the requested 
dynamic allocation function. Upon encountering an error condition, 
however, any one of the SVC 99 routines immediately returns to DAIR via 
SVC 3 (the EXIT macro) with an appropriate return code in register 15 as 
shown in Figure 36. 

DAIR, in turn, returns to the calling program using a RETURN macro 
instruction and restoring all registers except 15. At exit r register 15 
contains the DAIR return code as described in Figure 35. DAIR uses this 
return procedure whether or not it invoked the dynamic allocation 
routines to perform the caller's request. 
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Section 3: Program Organization 



This section describes the program organization of the Dynamic 
Allocation Interface Routine (DAIR) and the SVC 99 routines. 

This section includes three types of information: 

• Program Hierarchy Charts (Figures 22 and 23 ) — which show how 
programs are organized in terms of load modules, assembler modules,, 
and control sections. 

• Program Descriptions — which describe the overall logic of each 
assembler module and control section. 

• Program Flowcharts — which describe the logic of DAIR and the flow 
of control among modules in SVC 99. 

For a summary of the functions of each DAIR subroutine and SVC 99 
routine, refer to the Directory in Section 4. 



Program Hierarchy 

The DAIR service routine has only one load module, IKJEFDOO, as shown in 
Figure 29. The load module has 16 major routines, as follows: 

DAIRCTRL - Initializes the DAIRWA, routes control to the appropriate 
DAIR routine. 

DAIROO - Searches the DSE chain for information about a data set. 

DAIR04 - Searches the DSE chain and system catalog, if necessary, 
for information about a data set. 

DAIR08 - Allocates a data set by DSNAME. 

DAIROC - Concatenates data sets by DDNAME. 

DAIR 10 - Deconcatenates data sets by DDNAME. 

DAIR14 - Searches the system catalog for qualifiers for a DSNAME. 

DAIR18 - Frees a data set. 

DAIR1C - Allocates a data set to a terminal. 

DAIR24 - Allocates a data set by DDNAME or DSNAME. 

DAIR28 - Performs a list of operations. 

DAIR2C - Marks DSE entries not available for the specified task. 

DAIR30 - Allocates a SYSOUT data set. 

DAIR34 - Builds and maintains attribute lists (ATRCBs) and ATRCB 
chain. 
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ATTRSRCH - Searches the ATRCB chain., 

SEARCH - Searches the DSE Chain for information about a data set. 

GENDDN - Generates a DDNAME of the form •SYSnnnnn' , where nnnnn is 
a count in a TSO control block, the environment control 
table (ECT) . 

USERID - Prefixes userid to DSNAME. 

EXITCODE - Routes control from one DAIR routine to another. Loads 
return code and returns control to calling program. 

Figure 30 shows the organizational interrelationship of the SVC 99 
routines, while Figure 32 shows their functional grouping and lists the 
common name for each. 

In response to requests for dynamic allocation, DAIR gets information 
from the DSE and, if necessary, issues SVC 99 to invoke dynamic 
allocation,. DAIR uses register 1 to pass dynamic allocation the address 
of a parameter block that contains one of the dynamic allocation entry 
codes. This entry code tells the allocation control routine what the 
requested function is. The control routine, in turn, routes control to 
the routine appropriate for beginning the operations necessary to 
perform the requested function. Figure 31 illustrates this flow of 
control. 

Each routine constitutes a single load module of 1024 (IK) bytes or 
less, according to the conventions for Type 4 SVC routines. Because of 
this physical size limitation, each request for SVC function may require 
the loading of successive modular routines. The normal passage of 
control among the routines is via XCTL macro instruction, while error 
conditions encountered during execution result in a return to the caller 
via the EXIT macro instruction (SVC 3.) 
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Figure 29- Program Hierarchy: Relationship between DAIR and the SVC 99 
Routines 
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Figure 30. Program Hierarchy: SVC 99 Routines 



Section 3 : Program Organization 341 



IGC07099 



DATASET 



Allocate a 
Data Set 



© 



(Entry Code from ^ 
Caller J 



From: Any Requestor of 

Dynamic Allocation 



IKJEFPOO V 



Normal 



1. DAIRdid not need 
to use SVC 99. 

2. After normal return 
from SVC 99. 



DAIR 



Obtains Data Set 
Information and/or 
Invokes SVC 99, 
if Necessary 



© 



SVC 99 
\ / 



© 



IGC00099 y 



CONTROL 



Initialize and 
Determine 
Control Flow 



I GC 18099 



Free Data Sets 



Entry Code from DAIR 
00 



-® 



CONCAT 



Concatenate 
Data Sets 



<E> 



IGC25099 



DECONCAT 



Deconcatenate 
Data Sets 



UPDATE 



Updates the 
DCBor the 
DSE Chains 



(Return to the } 
Caller J 



f Return to DAIR J 

Figure 31. Flow of Control in Dynamic Allocation 



I GC 16099 



CONVERT 



Change Data Set 
Attributes 







IGC30099 tr 



(Error Return to \ 
Caller Via J 

EXIT SVC 



ATTRIB 



Build or Maintain 
ATRCBs 



© 



342 Terminal Monitor Program (Release 21.6) 



Ir 



Parent 
Function 



CONTROL 



UNALLOC 



DATASET 



CONVERT 



CONCAT 
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DECONCAT 
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UPDATE 
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Routine 
Designation 



IGC00099 



IGC01099 
IGC02099 
IGC03099 
IGC04099 
IGC05099 
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Common Routine Name 



~i 



Allocation Control routine 



Validity Checking routine 

Disposition Processing routine 

Device Freeing routine 

SYSOUT Chain DSB Processing routine 

SYSOUT Enqueuing routine 

KEEP Message Processing routine 

TSO Terminal KEEP Message Processing routine 



Validation and Initialization routine 

SYSOUT Processing routine 

SIOT and JFCB Processing routine 

Data Set Enqueing Routine 

DSENQ Update and Device Name Table Load routine 

Bit Pattern Construction routine 

Device Reduction routine 

Direct Access Device Space Management routine 

TIOT and JFCB Update routine 



Validity Checking routine 
SIOT and JFCB Updating routine 



— I 



Concatenation List Construction routine 
TIOT Building routine 
TIOT Moving routine 
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Deconcatenation routine 



DSE Update routine 

DATASET and CONVERT Update rotuine 

DECONCAT and Control Routine Handling routine 

SMF Exit routine 

UNALLOC and CONCAT Update routine 

DCB Update routine 



ATTRIB | IGC30099 | Chain or unchain an attribute list (ATRCB) 

L JL X _ 

Figure 32. Functional Grouping of the SVC 99 Routines 
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Module Descriptions 

The following descriptions provide information about the DAIR service 
routine module and its major subroutines, and of each load module of the 
SVC 99 routines (in ascending numerical order). The information 
included for each load module: 

• Describes the entry and exit. 

• Describes the major operational aspects. 

• Describes the register contents at entry and at exit, and explains 
any possible error return codes. 

• Lists the major subroutines or other routines called. 

• Lists the data areas that the load modules create and update. 

• Lists the macro instructions used. 
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DAIR— IKJEFDOO 



I 

Registers 

at Entry 

i 

Operation 



Entry 



Major 
Subroutines 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
f + ., 

| FA-FT | 20 
J ± 



Entered by a LINK macro instruction to entry point 
IKJEFDOO. 



Register 1 contains the address of the DAIR Parameter 
List (DAPL). 



Obtain the status of a data set by searching the DSE 
Chain for the appropriate information and, if 
necessary, invoke the SVC 99 routines to perform the 
following functions: 

• Allocate a data set. 

• Free a data set. 

• Concatenate a group of data sets. 

• Deconcatenate a data set from a group of data sets. 

• Convert a data set from one use to another. 

• Update the information in the DSE chain. 

• Build or free an attribute list. 



J 



H 



DAIRCTRL- initializes DAIRWA; issues STAE, STAX, and 
ENQ macro instructions; routes control to DAIRnn 
routine, where nn is the DAIR entry code. 

DAIROO-Searches for data set in DSE Chain. 

DAIR04-Searches for data set in DSE Chain, or, if not 
found, in the system catalog. 

DAIR08-Allocates data set by DSNAME. 

DAIROC-Concatenates data sets by DDNAME. 

DAIRIO-Deconcatenates data sets by DDNAME. 

DAIR14-Searches for qualifiers for DSNAME. 

DAIR18-Frees a data set. 

DAIRIC- Allocates a data set to the terminal. 

DAIR24-Allocates a data set by DDNAME, or DSNAME if 
necessary. 

DAIR28-Performs a list of operations specified by 
other DAIR entry codes. 

DAIR2C-Marks DSE entries not in use. 

DAIR30-Allocates a SYSOUT data set. 

DAIR34-Builds and maintains attribute lists (ATRCBs) 
on ATRCB chains. 

EXITCODE-Routes control from one DAIRnn routine to 
another; issues STAX and DEQ macro 
instructions; returns to the calling program 

j 

(Continued) 
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h 



Major 

Subroutines 

(Continued) 



ATTRSRCH-Searches the ATRCB chain for information 
about an attribute list. Also invokes the 
SEARCH subroutine. 



GENDDN-generates a DDNAME of the form , SYSnnnnn i , 
where nnnnn is a count in the environment 
control table (ECT) . 



SEARCH-Searches the DSE chain for information about a 
data set. 



USERID-Pref ixes user id to data set name 



Data Areas 
Created By 

H- 



DAIRWA DYNAPBOO DYNAPB01 DYNAPB02 DYNAPB03 DYNAPB04 
DYNAPB06 
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h 



Data Areas 
Updated by 



DAIRWA 



Routines Called 



SVC99; Catalog Information Routine (IKJEHCIR); 
USERID and SEARCH subroutines of DAIR 



— I 



Mapping Macros 
Used 



DAIR parameter blocks, DSE f ECT, IKJATRCB. 



System Macros 
Used 



Exit 



CATALOG, ENQ, DEQ, FREEMAIN, GETMAIN, LOCATE, 
STAE, STAX. 



Return to the calling program. 



-H 



Registers 
at Exit 



Register 15 contains a return code, as shown in 
Figure 36. 
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ATTRSRCH SUBROUTINE OF IKJEFDOO 
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Operation 
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| Flowcharts | Operation 
| | Diagrams 
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| 

Routines Called 



Mapping Macros 
Used 



System Macros 
Used 
| 

Exits 



Registers 
at Exit 



Entered from DAIR08, DAIR1C, DAIR30, and DAIR34 by a 
branch instruction to entry point ATTRSRCH. 



Register 12 contains the address of the DAIR Work 
Area (DAIRWA) . 



Calls the SEARCH routine to search the DSE chain for 
a ddname that matches a specified name. Searches the 
ATRCB chain for an ATRCB name that matches a 
specified name- 



H 



None 



H 



DAIR Work Area (DAIRWA) as follows: 

On input , the following field is checked: 



BITT3 - If set, indicates that the SEARCH routine is 
to be invoked. 

On output , the following fields are set: 

BITT2 - set on if name was found. 






SEARCH 



IKJATRCB, IKJTJBX, IKJTJB, IKJTSCVT, 
IEZJSCB 



None 



{ 



Return to calling routine. 



Register 14 is restored. 
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GENDDN SUBROUTINE OF IKJEFDOO 



Entry 
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Registers 
at entry 



r t 1 

| | Operation 

| Flowcharts | Diagram 
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| FU | 20 

_J X 



Entered at entry point GENDDN by branch -and- link 
instruction. 



Register 14 contains the return address- 
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Operation 



I 

Major 

Subroutines 
| 

Data Areas 

Created by 

I- 

Data Areas 
Updated by 



Generates a DDNAME of the form n SYSnnnnn n f where 
nnnnn is a count in the environment control table 
(ECT). 



Calls SEARCH to ensure that the generated DDNAME is 
not a duplicate. 



DDNGEN1 and DDNGEN2 — fields for generating the new 
DDNAME . 



f" 



ECTDDNUM — count field in ECT. 

DDNAME — the newly generated DDNAME* in DAIR work 
area. 



Routines 
Called 



h 



SEARCH subroutine - 
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Mapping 
Macros Used 

I 

System 
Macros Used 

I 

Exit 

i^ 

Registers 
at Exit 



IKJTECT. 



None. 



Branch to the address in register 14. 



H 



Register 14 contains the return address - 
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SEARCH SUBROUTINE OF IKJEFDOO 
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Data Areas 
Created By 



Entry 



Registers 
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Operation 
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Entered from DAIR00, DAIR04, DAIR08, DAIR18, DAIRlC, 
DAIR2C, DAIR30 f or ATTRSRCH by a 

branch-and-link-register instruction to entry point 
SEARCH . 



Register 12 contains the address of the DAIR 
Work Area (DAIRWA) . 
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Searches the DSE Chain for a specified DDNAME or a 
DSNAME. The search starts at the bottom of the chain 
or at the address specified in BLKPTR. The search 
ends at the top of the chain or at the first 
occurrence of the DSNAME if bit 2 of STATUSl is set. 



H 



None. 



H 



DAIR Work Area (DAIRWA) as follows: 

On input , the following fields are checked: 



DDNPTR-Address of 8-byte DDNAME for use in search. 

DSNPTR-Address of DSNAME Buffer for use in search. 

MEMPTR- Address of 8-byte member name for use in 

search. 

BLKPTR-Address of DSE block at which search is to 

begin. If zero, search starts at the bottom of the 

DSE chain. 

STATUS1-Bit2: If set, search stops at first 

occurrence of DSNAME. If not, search continues to 

the top of the DSE chain. 



On output , the following fields are set: 



BLKPTR-Address of next DSE block on the chain. 

useful when bit 2 of STATUSl is set. 
DDNADDR- Address of DSE block for sought DDNAME. 
DSNADDR-Address of DSE block for sought DSNAME. 
NOTUADDR-Address of DSE block which is not in use. 
DYNMADDR- Address of DSE block which is DYNAM. 
DNCAADDR- Address of DSE block which is not in use, 

but is dynamically concatenated. 
STATUSl 

bit 4: DSNAME is a member of a dynamically 
concatenated group. 
5: DSNAME is a member of a concatenated 
group. 

DSNAME appears more than once in DSE 
chain. 



Only 
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□ 



(Continued) 
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I Routines Called JNone 

, + 

(Mapping Macros | IKJDSE. 
| Used | 

I + . 

| System Macros 
| Used 

\- 



|None. 



| Exit 

t 

| Registers 
|at Exit 

L 



| Return to calling routine. 
__ + 

| All registers are restored. 



-H 



USERID SUBROUTINE OF IKJEFDOO 



r t 1 

| Flowcharts | Operation 
| | Diagrams 

h 



FU 



20 



I- 



Entry 



-+ 



Entered from DAIR00 f DAIR04, DIAR08, DAIR14 or DAIR18 
by a branch-and-1 ink-register instruction to entry 
point USERID. 



H 



Registers 
at Entry 

j. 

Operation 

I 

Data Areas 
Created By: 

I 

Data Areas 
Updated By: 



Register 12 contains the address of the DAIR Work 
Area (DAIRWA) . 



~+ 



Prefixes the userid to a specified DSNAME. 



None 



h 



Qn input , the DSNAME Buffer contains the DSNAME. 
On Output , the DSNAME Buffer contains the DSNAME 
prefixed by the userid. 



Routines Called 



None 



Mapping Macros 
Used 



None 



System Macros 
Used 



None 



Exit 



+ 

Return to caller 



-H 



Registers 
at Exit 



Register 15 contains the following return codes: 

0- normal 

4- error. The resulting DSNAME contains more than 44 

characters. 
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IGC00099 — ALLOCATION CONTROL ROUTINE 



r T 1 

| [Operation 
| Flowcharts | Diagrams 
|. + 1 

| JA | 21-26 



| 

Registers 
at Entry 



h 



Entry 



Operation 



Major 
Subroutines 



h 



h 



Data Areas 
Created by 



h 



Data Areas 
Updated by 



Routines 
Called 



Mapping 
Macros Used 



System 
Macros Used 



Exit 



| 

Registers 
at Exit 



Entered at entry point IGC00099 when the user (a DAIR 
routine) issues SVC 99 for dynamic allocation. 



Register 1 contains the address of a parameter list, 
which is different for each function of the SVC, as 
follows : 

Module 



IGC25099 
IGC07099 
IGC01099 
IGC18099 
IGC23099 
IGC16099 
IGC30099 



Code 


Function 





- UPDATE 


1 


- DATASET 


2 


- UNALLOC 


3 


- CONCAT 


4 


- DECONCAT 


6 


- CONVERT 


7 


- ATTRIB 



Creates the Dynamic Allocation Work Table (DAWT), 
performs initialization common to each function of the 
SVC, and exits to the function requested with the 
address of the DAWT in register 1. 



None. 



DAWT. 



None. 



Transient queue manager. 



-H 



IEFQMNGR, IEFTIOTl, IEZJSCB, IKJTCB, 
TIOTEXT. 



jlXIT, FREEMAIN, GETMAIN, XCTL. 



Normal: XCTL to the function requested by the caller. 
Error: Return to the caller with a return code. 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 15 contains the address of the XCTL parameter 

list. 

For error situations f register 15 contains a return code 

as shown in Figure 36. 



-1 



□ 
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IGC01099 — UNALLOC VALIDITY CHECKING ROUTINE 



T 1 

(Operation 
| Flowcharts | Diagram 



h 



JC 



I 



22 



H 



h 



Entry 



Entered at entry point IGC01099 by XCTL from IGC00099. 
When IGC00099 receives user code 2. 



Registers 
at Entry 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 15 contains the address of Ohe XCTL parameter 

list. 



h 



Operation 



Obtains space for and partially fills in the 584-byte 
unallocation work area. Obtains a 2 8-byte work space 
for enqueuing the Q5 termination resource of the 
operating system, if necessary. Reads the SIOT and 
JFCB. 



Major 
Subroutines 



None. 



H 



Data Areas 
Created by 



UNALLOC work area. 



Data Areas 
Updated by 



DAWT. 



h 



Routines 
Called 



Transient queue manager. 



Mapping 
Macros Used 



IEFTIOTl f IEFJFCBN, IEFASIOT, IEFUCBOB, IEFQMNGR, 
TIOTEXT r SIOTTTR. 



System 
Macros Used 



FREEMAIN, GETMAIN, EXIT, WAIT, XCTL. 



-H 



Exit 



XCTL to IGC03 099, if request is for freeing a dummy 
data set, or a terminal as an I/O device. 

XCTL to IGC0U099, if request is for freeing a SYSOUT 
data set. 

Otherwise, XCTL to IGC02099. 



| 

Registers 
at Exit 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 5 contains the address of the 28-byte enqueue 

work area, if the routine obtained it. 

Register 15 normally contains the address of the XCTL 

parameters; abnormally, a return code as shown in 

Figure 36. 
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IGC02099 — DISPOSITION PROCESSING ROUTINE 



T 1 

| | Operation 

| Flowcharts j Diagram 



h 



JC 



I 



22 



H 



h 



h 



h 



Entry 



Registers 
at Entry 



Operation 



Major 
Subroutines 



i~ 



Data Areas 
Created by 



H 



Data Areas 
Updated by 



Routines 
Called 



Mapping 
Macros Used 



System 
Macros Used 



h 



Exit 



I- 



Registers 
at Exit 



Entered at entry point IGC02099 by XCTL: 

• From IGC04099 for deletion of the SYSOUT data set. 

• From IGC05099 for writing of the SYSOUT disposition 
message. 

• From IGC010 9 9 at all other times. 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 5 contains the address of the enqueue 
parameter list. 

Register 15 contains the address of the XCTL 
parameter list. 



Initializes the message and WTO buffers and makes 
appropriate changes to the catalog for dispositions of 
CATALOG, UNCATALOG, and DELETE. Issues dispositon 
messages IEF28 3I, IEF285I, and IEF287I, as necessary. 



None. 



None. 



DAWT, Unallocate work area. 



None. 



CVT f IEEBASEA, IEFASIOT, IEFJFCBN, IKJTJB, IKJTSCVT 
TIOTEXT. 



CATALOG, FREEMAIN, GETMAIN, SCRATCH, TPUT, WTO, 
XCTL. 



XCTL to IGC03099. 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 5 contains the address of the enqueue 
parameter list. 

Register 15 contains the address of the XCTL 
parameter list. 



-H 



-H 



-H 



El 
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IGC03 099 — DEVICE FREEING ROUTINE 



"T 1 

| Operation 
Flowcharts | Diagram 

H 



| JC 



22 



Entry 



Entered at entry point IGC03099 by XCTL: 

• From IGC01099 for the freeing of a DUMMY or terminal 
data set. 

• From IGC02099 after disposition processing. 

• From IGC05099 if there is no requirement for the 
writing of SYS0UT disposition messages. 

• From IGC06099 upon completion of KEEP message 
processing. 

• From IGC2i0 9 9 upon completion of TS0 terminal KEEP 
message processing. 



Registers 
at Entry 



I 

Operation 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 5 contains the address of the enqueue 
parameter list. 

Register 15 contains the address of the XCTL 
parameter list. 



Determines the type of data set being freed, then, 
appropriately, performs some combination of the 
following operations: 

• Modifies the appropriate bits and fields of the SI0T f 
TIOT, and JFCB to free the data set. 

• Enqueues the termination resource (Q5) ,, modifies the 
UCB, and dequeues the termination resource - 

• Updates the DSENQ (ampersand in the first character of 
the data set name for non system- generated data set 
names only. 

• Uses the transient queue manager to maintain 
SYSl.SYSJOBQE and to dequeue the DSNAME, as necessary. 

• Frees the unallocate work area and transfers control 
to the UPDATE function. 

• Monitors any of these operation for errors, frees all 
main storage devoted to work areas in error 
situations, and subsequently returns to the user with 
an error code via the EXIT SVC 3. 



-H 



Major 
Subroutines 



None. 



h 



-H 



H 



Data Areas 
Created by 



None- 



1 



l~ 



Data Areas 
Updated by 



DAWT, DSENQ, enqueue parameter list, JFCB, SIOT, 
SYSl.SYSJOBQE, TI0T, UCB. 



Routines 
Called 



Transient queue manager. 



—I 



Mapping 
Macros Used 



IEFASI0T, IEFJFCEN, IEFQMNGR, IEFTI0T1, IEFUCBOB, 
IEZJSCE, IKJTCB, TIOTEXT. 



(Continued) 
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r t 

| System |DEQ, ENQ, EXIT, FREEMAIN,, GETMAIN, POST, WAIT f XCTL. 
| Macros Used | 

I- 



| Exit 



j Registers 
at Exit 



j Normal: To IGC25099 by XCTL at the conclusion of 
| processing. There is also the possible in- 
| line XCTL to IGC06099 for the issuing of a 
j KEEP message,, 
| Error: Return to the user by SVC 3. 
_ + 

| Register 1 contains the address of the DAWT. 
j Register 4 contains the address of the TCB. 
| Register 15 normally contains the address of the XCTL 
j parameter list; upon error conditions, it contains a 
(return code as shown in Figure 36- 
_i 



B 



Section 3: Program Organization 355 



IGC04099 — SYSOUT CHAIN DSB PROCESSING ROUTINE 



r T 1 

| | Operation 

| Flowcharts | Diagram 

| JC | 22 

.j x 



1 

Operation 



Entry 



| Entered at entry point IGC04099 by XCTL from IGC01099. 



Registers 
at Entry 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 5 contains the address of the enqueue 
parameter list. 

Register 15 contains the address of the XCTL 
parameter list • 



H 



Provides interim processing for SYSOUT data sets between 
initial validity check (IGC01099) and disposition 
processing for the data set (IGC02099). Processing 
includes validity checks of jobname and SYSOUT class, 
obtaining storage for and reading in the SCT and/ or JCT, 
as appropriate for the disposition and message class , 
using the transient queue management routines to place a 
null SMB on SYSl.SYSJOBQE, and assigning two records 
from SYSl.SYSJOBQE when the disposition parameter is not 
DELETE. 



Major 
Subroutines 



H 



None. 



Data Areas 
Created by 



As many as 532 bytes to contain the read- in SCT 
and/or JCT f and a null SMB on SYS1. SYSJOBQE. 



Data Areas 

Updated by 

j. 

Routines 
Called 



UNALLOC work area, DAWT, SCT. 



+- 



Transient queue manager. 



Mapping 
Macros Uses 

i 

System 
Macros Used 



IEFASCTB, IEFASIOT, IEFQMNGR, TIOTEXT. 



EXIT r FREEMAIN, GETMAIN, XCTL. 



Exit 



Normal: 



Error : 



XCTL to IGC05099 to enqueue the data set 
for the output writer task immediately, 
rather than at LOGOFF. 



Return to the user by SVC 3 with a return code. 



H 



contains the address of the DAWT. 

contains the address of the TCB. 

contains the address of the enqueue parameter 



Registers (Register 1 
at Exit | Register 4 

Register 5 

list« 

Register 7 contains the length in bytes of the main 

storage area obtained for the JCT and/or the SCT during 

transfer of control to IGC05099. 

Register 15 normally contains the address of the XCTL 

parameter list, or, in case of error, a return code as 

shown in Figure 36. 



356 Terminal Monitor Program (Release 21.6) 



IGC05099 — SYSOUT ENQUEUING ROUTINE 



r t 1 

| | Operation 

Flowcharts | Diagram 



| JC 



22 



j Entry 

I- 

Registers 
at Entry 



j Entered at entry point IGC05099 by XCTL from IGC04099. 



I 

Operation 



J- 



h 



Major 
Subroutines 



Data Areas 
Created by 



h 



Data Areas 
Updated by 



Routines 
Called 



Mapping 
Macros Used 



System 
Macros Used 



i- 



Exit 



| 

Registers 
at Exit 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 7 contains the length of the area that 
contains the SCT and/or JCT. 

Register 15 contains the address of the XCTL 
parameter list. 



Initializes a DSB using information from the SIOT, TIOT, 
User parameter list, and SMF information from the JMR 
when SMF is active for the user's job. Writes this DSB 
and the JFCB using the records assigned in IGC04099 to 
SYS1. SYSJOBQE and enqueues the data set on the proper 
output class by using the job name from the parameter 
list, if available, or from the TIOT. 



i 



None. 



H 



None. 



DAWT, DSB, JFCB, SCT. 



Transient Queue Manager. 



-H 



IEFAJCTB, IEFASIOT, IEFQMNGR, IEFTI0T1, IKJTCB, 
TIOTEXT. 



EXIT, FREEMAIN, GETMAIN, XCTL. 



Normal: XCTL IGC02099 to write a disposition message, 
if necessary. 

Otherwise, XCTL to IGC03099 to make the tables 
associated with the data set reusable. 

Error: Return to the user by SVC 3 with a return code. 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 15 or, contains the address of the XCTL 
parameter list; in case of error, a return code as 
shown in Figure 36. 



□ 
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IGC06099 — KEEP MESSAGE PROCESSING ROUTINE 



j | Operation 

| Flowcharts | Diagram 

| JC | 22 
_i. x 



j Entry 

j. 

Registers 
at Entry 



i 

Operation 



j Entered at entry point IGC06099 by XCTL from IGC03099. 
f __ 

Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 5 contains the address of the enqueue 
parameter list. 

Register 15 contains the address of the XCTL 
parameter list. 



-J 



Places a complete KEEP message (IEF280E) in the message 
buffer for direction to SYSOUT and the operator console 
only, and issues it; or partially constructs the TSO 
terminal KEEP message depending upon user requirements f 
for completion by IGC21099. Clears fields in the UCB so 
that the volume may be demounted. 

, 



Major 
Subroutines 



None. 



h 



Data Areas 
Created by 



None. 



h 



Data Areas 
Updated by 



DAWT, UCB. 






Routines 
Called 



None. 



Mapping 
Macros Used 



CVT f IEEBASEA, IEFJFCBN, IEFTI0T1, IEFUCBOB, IKJTCB. 



System 
Macros Used 



FREEMAIN, GETMAIN LSPACE, WTO XCTL. 



Exit 



XCTL to IGC21099 if any terminals are to receive the 

KEEP message. 

XCTL to IGC03099 othervd.se. 



Registers 
at Exit 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 5 contains the address of the enqueue 
parameter list. 

Register 15 contains the address of the XCTL 
parameter list. 
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IGC07099 — DATASET VALIDATION AND INITIALIZATION ROUTINE 



r T 1 

| [Operation 

| Flowcharts | Diagram 

j. + ^ 

| JB | 21 
.J -L 



| Entry 

I 

Registers 



(Entered at entry point IGC07099 by XCTL from IGC00099. 



-_ + _ 



Operation 



i 

Data Areas 
Created by 



Data Areas 
Updated by 

I 

Routines 
Called 

I 

Mapping 
Macros Used 



System 
Macros Used 



Exit 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 15 contains the address of the XCTL 
parameter list. 



Checks the validity of the input to the function of 
allocating datasets. 

Contains the NAMECK subroutine, which validates the 
character strings used as input as the table of 
allowable characters shows below: 



r 


"T 


"T 


"T 1 


| Position 


1 


| DDNAME 




| of the 


1 


1 MEMBERNAME 


ISYSOUT 1 


| Character 
| First 


| DSNAME | PROGRAMNAME | Class | 
ii ii 


|A - Z 


| A - Z 


|A - Z | 


| Character 


1 & 


1 ^ 


| - 9 | 




1 a 


1 # 






1 # 


1 $ 




|Not 


1 $ 
-+ 

|A - Z 


| A - Z 


-+ J 

| N/A | 


| First 


|0 - 9 


| 0-9 




| Character 


1 • 


1 a 






1 a 


1 # 






1 # 


1 $ 






1 $ 

1 _ 








|12-0 








| punch 






L 


_X 


--L X J 



None. 



DAWT. 



Transient queue manager. 



CVT f IEFQMNGR, IEFTIOT1, SIOTTTR f TIOTEXT. 



EXIT* FREEMAIN, GETMAIN f WAIT, XCTL. 



Normal: XCTL to IGC08099 for a SYSOUT dataset; 

XCTL to IGC09099 at other times. 
Error: Return to the user by SVC 3 with an error 

return code. 



H 



—I 

-1 



Q 



(Continued) 
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j Registers | Register 1 contains the address of the DAWT. 

| at Exit | Register 4 contains the address of the TCB. 

| | For error conditions , register 15 contains a 

| | return code as shown in Figure 36. 

l x 



IGC08099 — SYSOUT PROCESSING ROUTINE 



r t 1 

| (Operation 

| Flowcharts | Diagram 

|. + \ 

| JB | 21 
J. X 



I 

Major 
Subroutines 



Entry 



Registers 
at Entry 



Operation 



Entered at entry point IGC08099 by XCTL from IGC07099 
for processing of a SYSOUT data set; or from IGC09099 to 
generate a data set name. 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 15 contains the address of the XCTL 
parameter list. 



-1 



Processes SYSOUT data sets r and generates a DSNAME 
whenever necessary. 



H 



RDQWA1, which reads tables into the DAWA1 area of 
the DAWT, and WRQWA1, which writes from DAWA1 to the job 
queue. WTPENQA, which dequeues the WTP block frees the 
WTPENQ parm list. 



Data Areas 
Created by 



SYSOUT work area, Allocation/Termination, enqueue/ 
dequeue parameter list. 



H 



f- 



Data Areas 
Updated by 



DAWT, SCT, SIOT, SMB, SYSOUT work area, WTP control 
block. 



Routines 

Called 
| 

Mapping 

Macros Used 
| 

System 
Macros Used 

I- 

Exit 



Transient queue manager. 



IEFASCTB, IEFASIOT, IEPQMNGR, IEFTI0T1, IEZJSCB, 
IKJTCB, TIOTEXT. 



EXIT, FREEMAIN, ENQ/DEQ, TIME, XCTL, GETMAIN. 



Normal: XCTL to IGC09099 for SYSOUT data sets, otherwise 
to IGC11099. 

Error: Return to the user by SVC 3 with an error 
return code. 



Registers 
at Exit 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
For error conditions, register 15 contains a 
return code as shown in Figure 36. 
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IGC09099 — SIOT AND JFCB CONSTRUCTION ROUTINE 



| j Operation 

| Flowcharts | Diagram 

| JB | 21 
.j ± 



h 



Entry 



Registers 
at Entry 



Operation 



Major 
Subroutines 



Assigns a record for the JFCB, if necessary. 
Initializes the SIOT and saves it in the SIOT buffer. 
Initializes the JFCB from parameters in the parameter 
list or in an ATRCB. 

None. 



Data Areas 
Created by 

I 

Data Areas 
Updated by 
I 

Routines 
Called 

\ 

Mapping 

Macros Used 



— + 



I +- 



System 
Macros Used 
I 

Exit 



Registers 
at Exit 



Entered by XCTL at entry point IGC09099 from IGC07099 or 
IGC08099, 



Register 1 contains the address of the DAWT. 
Register 4 contains the address of the TCB. 
Register 15 contains the address of the XCTL 
parameter: list. 



SIOT buffer. 



DAWT,, JFCB, SIOT. 



Transient Queue Manager 



CVT, IEFASIOT, IEFJFCBN, IEFQMNGR, TIOTEXT, IKJATRCB. 



EXIT,, FREEMAIN, GETMAIN, XCTL. 



Normal: XCTL to one of the following routines: 

• IGC08099 if the DSNAME needs generating. 

• IGC10099 if a DSNAME is specified. 

• IGC15099 if the "DUMMY OR TERM DATA SET" bit is on 
in VFLAGS. 

• IGC11099 for SYSOUT data sets. In this case, the 
routine turns on the VNOENQ bit in VFLAGS to 
indicate to IGC11099 that it should bypass DSENQ 
processing. 

Error: Return to the caller by SVG 3. 



-H 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

For error conditions, register 15 contains a return code 

as shown in Figure 36. 



□ 
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IGC10099 — DATA SET ENQUEUING ROUTINE 



j Entry 

I 

Registers 
at Entry 



r t 1 

| | Operation 

| Flowcharts | Diagram 

f + 1 

| JB I 21 

.J JL 



j Entered at entry point IGC10099 by XCTL from IGC09099. 



-H 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 15 contains the address of the XCTL parameter 

list. 



Operation 



Major 
Subroutines 



-H~ 



Searches the records of the DSENQ table to see if it is 
necessary to enqueue the data set name to the task- 
Performs one of the following operations based upon the 
results of the table search: 

• DSNAME already appears on the table - 

- With exclusive use attribute — ENQ is not 
necessary, and the subsequent exit is to IGC11099. 

- With share attribute - 

1) Request is for shared use — ENQ is not 
necessary, and the subsequent exit is to 
IGC11099. 

2) Request is for exclusive use — Builds the 
DSNAME ENQ parameter list with the RET=CHNGE 
option; passes control to IGC11099. 

• DSNAME not found — builds ENQ parameter list and 
performs the enqueue by posting an ECB (ECB1) to 
start the initiator. Posting ECBl includes passing 
the initiator the address of the ENQ/DEQ parameter 
list. When posted by SVC 99, the initiator issues 
the enqueue macro instruction while SVC 99 waits. 
When the macro instruction returns control, the 
initiator posts an ECB (ECB2) with the macro return 
code. This code indicates to SVC 99 and the WAIT 
macro instruction it issued whether or not enqueuing 
the data set was successful. This processing is 
called, "the WAIT/POST mechanism with the initiator" ; 
SVC 99 acts upon the results as follows: 

- Successful execution — Adds a new DSNAME entry to 
the DSENQ table and passes control to IGC11099. 

"" Error -- Returns control to the user by EXIT SVC 
3. 

Also obtains and initializes main storage for the 
allocation/termination dequeue parameter list before 
passing control to IGC11099. 



Entry point RDQUE — to read SYS1.SYSJ0BQE- 



h 



Data Areas 
Created by 



DSENQ record read area; DSANME enqueue work area; 
allocation/termination enqueue/dequeue parameter list. 



(Continued) 
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I Data Areas 
| Updated by 

h 



| Routine 
| Called 



+ 



DAWT — DAWA2 



Transient queue manager. 



| Mapping 

| Macros Used 

f 

| System 

| Macros Used 



IEFJFCBN, IEFQMNGR, IEZJSCB, IKJTCB. 



—I 



EXIT, FREEMAIN, GETMAIN, POST, WAIT, XCTL. 



JExit 



t 

| Registers 
| at Exit 

I 
I 



Normal: XCTL to IGC11099. 

Error: Return to the caller by SVC 3. 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

For error conditions, register 15 contains a return code 

as shown in Figure 36. 



H 



□ 



Section 3: Program Organization 363 



IGC11099 — DSENQ UPDATE AND DEVICE NAME TABLE LOAD ROUTINE 



r t 1 

| (Operation 

| Flowcharts | Diagram 

j. + .J 

| JB I 21 

.J -L 



Operation 



Entry 



Registers 
at Entry 



+- 



Entered at entry point IGC11099 by XCTL from IGC08099, 
IGCO9099, or IGC10099. 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 15 contains the address of the XCTL parameter 

list. 



Writes the updated DSENQ record to the SYS1 . SYS JOBQE 
data set and performs any necessary chaining. Loads the 
device name table to convert the unit name to a device 
type. Deletes the device name table and transfers 
control to IGC12099. 



—I 



Major 
Subroutines 



DELETE — deletes the device name table (DNT) . 
RDQWA2 — reads records from SYS 1. SYS JOBQE into 

DAWA2. 
WRQWA2 — writes records from SYS1. SYS JOBQE from DAWA2. 

DAWA2. 
GETUCB — converts the relative number of an entry in 

the IOS lookup table to its corresponding UCB 

address. 



Data Areas 
Created by 



None. 



Data Areas 
Updated by 



DAWA2, DAWT, JCT, TI0TEXT, and the following switches: 
VBCONST r VNEWENQ, VN0ENQ, and the "SPECIFIED UCB" Flag 
in VFLAGS. 



-H 



Routines 
Called 



Transient queue manager. 



Mapping 
Macros Used 

i 

System 
Macro Used 



CVT, IEFAJCTB, IEFJFCBN, IEFQMNGR, IEFUCBOB, IEZJSCB 
IKJTCB, TI0TEXT. 



DELETE, DEQ, ENQ,, EXIT, FREEMAIN, GETMAIN, LOAD,, POST, 
WAIT, XCTL. 



Exit 



Registers 
at Exit 



+- 



Normal: XCTL to IGC13099 if a specific unit name is 
requested; otherwise XCTL to IGC12099. 

Error: Return to the caller via SVC 3. 






Register 1 contains the address of the DAWT. 
Register 15 contains the address of the XCTL parameter 
list; or, in case of error, a return code as shown in 
Figure 36. 
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IGC12099 — BIT PATTERN CONSTRUCTION ROUTINE 



r t 1 

| | Operation 

J Flowcharts | Diagram 
j. + 



JB 



h 



Entry 



I 

-X- 



21 



| Entered at entry point IGC12099 by XCTL from IGC11099. 



Registers 
at Entry 



Operation 



■+- 



Major 
Subroutines 



h 



Data Areas 
Created by 



h 



Data Areas 
Updated by 



Routine 
Called 



Mapping 
Macros Used 



System 
Macros Used 



Exit 



Registers 
at Exit 



Register 1 contains the address of the DAWT. 

Register 15 contains the address of the XCTL parameter 

list. 



Loads the device mask table (DMT) and scans it for an 
entry with a device type that matches the one in the 
DAWT. Passes the address of the entry that it may find 
by this scan to IGC13099. Otherwise, deletes the DMT 
and obtains space for, initializes, and builds the bit 
pattern in the pattern construction area (PCA). (See 
Section 5 for a description of the PCA.) Passes the 
completed bit pattern to IGC13099 if it finds any UCBs 
that meet the device type requirements for the request. 
Finding no suitable UCBs results in an error return. 



None. 



Pattern construction area (PCA), 



-H 



DAWT. 



Transient Queue Manager. 



None. 



-H 



DELETE, DEQ, EXIT, FREEMAIN, GETMAIN, LOAD, POST, 
WAIT, XCTL. 



-H 



Normal: XCTL to IGC13099 with a bit pattern completed 
in the PCA or an entry found in the DMT. 

Error: Return to the caller by SVC 3. 



— I 



Register 1 contains the address of the DAWT. 
Register 15 contains the address of the XCTL parameter 
list; or in case of error, a return code as shown in 
Figure 36. 



B 
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IGC13099 — DEVICE REDUCTION ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 

| JB | 21 

-J- x 



h 



h 



Entry 



Registers 
at Entry 



Operation 



Major 
Subroutines 



.| 

Entered at entry point IGC13099 by XCTL from IGC11099 or 
IGC12099. 
., 

Register 1 contains the address of the DAWT. 

TCBPTR (in DAWTVARY) contains the address of the TCB. 

Register 15 contains the address of the XCTL parameter 

list. 



-H 



Zeros out DAWA2 for construction of a list of UCBs that 
can satisfy the request for allocation «. 

- Builds the list, either from the bit pattern passed by 
IGC12099, or the specific unit address passed by 
IGC11099 to indicate which IOS lookup table entries to 
use for examination of their corresponding UCBs. 

• The UCBs with the proper characteristics become 
valid candidates for allocation. 

• Their two-byte addresses become entries in UCBLIST 
(see Section 5) in DAWA2. 

- Frees the bit pattern construction area (the PCA — 
see Section 5) and deletes the device mask table 
(DMT), if necessary. 



FREECORE - subroutine to free obtained core. 

GETUCB - takes the relative number of an entry in the 

IOS lookup table (LUT) and translate it to a 

corresponding UCB address. 



H 



Data Areas 
Created by 



UCBLIST- 



-H 



Data Areas 
Updated by 



DAWA2 (in DAWT), UCBLIST. 



Routines 
Called 

Mapping 
Macros Used 



None. 

CVT, IEFJFCBN, IEFUCBOB. 



H 



System 
Macros Used 
| 

Exit 



h 



FREEMAIN, GETMAIN, XCTL. 



Normal: XCTL to IGC14099 for a new data set. 

XCTL to IGC15099 otherwise. 

Error: XCTL to IGC15099 to free work areas and EXIT to 
the user. 



+- 



Registers 
at Exit 



Register 1 contains the address of the DAWT. 

Register 15 contains the address of the XCTL parameter 

list. 

For error conditions, RTCODE (in DAWT) contains one of 

the following return codes: 

004, 214, 218 (see Figure 36.) 
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IGC14099 — DIRECT ACCESS DEVICE SPACE MANAGEMENT ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 



h 



JB 



I 



21 



H 



| Entry 

I- 

Registers 

at Entry 



| Entered at entry point IGC14099 by XCTL from IGC13 099. 



I- 



O per at ion 



Major 
Subroutines 



I 

Data Areas 
Created by 



| 

Data Areas 

Updated by 

| 

Routines 
Called 



Mapping 
Macros Used 



System 
Macros Used 



Register 1 contains the address of the DAWT. 

TCBPTR (in DAWTVARY) contains the address of the TCB. 

Register 15 contains the address of the XCTL parameter 

list. 



■H 



- Places default space parameters in the JFCB if none 
were previously specified. 

- Checks the number of candidates of devices for 
allocation and prepares a candidate attribute list 
(CAL) if there are more than one. (See Section 5.) 

- Searches the list for the best logical candidate (the 
one whose CAL entry has the lowest logical value) . 

- Invokes DADSM SVC 32 to allocate space for the 
candidate on the direct access device. 

This process continues until DADSM is successful f or 
until the CAL is exhausted, in which case the routine 
saves the return code that reflects the candidate for 
which DADSM first unsuccessfully tried to allocate 
space. This return code reaches the user through 
IGC15 099, the exit routine of the DATASET series for 
dynamic allocation. 



CALUSER - places the user count in the appropriate 
CAL entry. 

frees 176 byte work area. 

takes the relative number of the I0S lookup 
table entry and translate it to the 
corresponding UCB address. 

finds the correct CLT entry using the offset 
from the IOS lookup table, 
updates the data path load in the channel 
load table (CLT). 



FREE176 
GETUCB 



OFSETCLT 
UPDTLOAD 



Candidate Attribute List, 



CAL, DAWT, JFCB. 



DADSM (SVC 32) 



CVT, IEFJFCBN, IEFUCBOB. 



DADSM, DELETE, FREEMAIN, GETMAIN, LOAD, XCTL. 



□ 



(Continued) 
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T 

| Exit | Normal: XCTL to IGC15099. 

I 

| Error: XCTL to IGC15099 which returns to the caller by 
| SVC 3 . 
| + j 

[Registers | Register 1 contains the address of the DAWT. 

| Register 15 contains the address of the XCTL parameter 
| list. 

| For error conditions , RTCODE (in the DAWT) contains 
| return code 47zz (see Figure 36). 

L JL J 
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IGC15099 — TIOT AND JFCB UPDATE ROUTINE 



h 



Entry 



Registers 
at Entry 



Operation 



r t 1 

| [Operation 

| Flowcharts | Idagram 

j. + j 

| JB | 21 

.J x 



Entered at entry point IGC15099 by XCTL from: 
IGC09099 -during allocation of DUMMY or TERM 

data sets. 
IGC13099 - during allocation of old data sets. 
IGC14 099 - during allocation of new data sets. 



Register 1 contains the address of the DAWT. 

Register 15 contains the address of the XCTL parameter 

list. 



-H 



Upon entry from IGC09099 (DUMMY or TERM data sets) : 

Writes the JFCB and TIOT to SYS1. SYSJOBQE and moves the 
new DDNAME to the TIOT. Updates fields in the TIOT as 
follows — 

• TIOTEDYNM = 'O'B 

• TIOESTTA = "OO'X 

• TIOESTTB = 'OO'X 

• TIOESTTC = ' 00 f X 

• TIOSUSED = "O'B 

• TIOEFSRT = 'OOOOOO'X 

• TIOTTERM = • l'B (if this is a terminal request) 

Passes control to IGC25099 by XCTL when TIOT updating is 
complete. 

Upon normal entry from IGC13099 or IGC14099: 

For a request to change the enqueue use attribute from 
"share" to "exclusive" , enqueues the data set by using 
the WAIT/POST mechanism with the initiator. (See the 
description for this under "Operation" in the module 
description for IGC10099.) 

• Successful enqueue - 

- Reads the correct record of the DSENQ table. 

- Updates the DSNAME use attribute. 

- Writes the updated table to SYS1. SYSJOBQE. 

• Unsuccessful enqueue - error return to the user with 
return code X , 20C i . 

Places the volume serial number of the allocated device 
into the JFCB, then writes the JFCB and SIOT to the 
SYSI. SYSJOBQE data set. Updates the UCB (or subUCB, in 
the case of 2321 devices) as follows — 

• Increments the user count ( SRTEUSER/DCELUSER) . 

• Sets the public volume attribute if it is not 
already set. 

• irurhs on the * allocated 1 * bit (SRTEALOC) * 



El 



(Continued) 
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Operation 
(Continued) 



Major 
Subroutines 



T 1 

Dequeues the allocation/termination resource (Q4 and 
Q5) and frees the ENQ/DEQ parameter list. Updates the 
TIOT as described above except that it sets TIOEFSRT 
with the address of the correct UCB. Issues message 
IEF237I if allocation messages are requested and 
transfers control to IGC25099. 

Upon entry from IGC13099 or IGC14099 for error 
processing: 

• If the data set name has been enqueued - 

- Dequeues the data set name using the WAIT/POST 
mechanism with the initiator- (See module 
description for IGC10099 — initiator issues DEQ 
macro instruction rather than ENQ.) 

- Reads the last record of the DSENQ table and 
overlays the first byte of the DSNAME with an 
ampersand. 

- Writes the updated DSENQ record. 

• Frees the main storage obtained for the data set 
name enqueue parameter list, if any storage was 
obtained previously. 

• Dequeues the allocation/termination resources (Q4 
and Q5) and frees the corresponding parameter list. 

• Frees the SIOT buffer and the DAWT. 

• Places the return code in register 15 and exits to 
the user. 



| 

Data Areas 
Created by 



DEQUCBS -Dequeues the Allocation/Termination 

resources (Q4/Q5) and frees the allocation/ 
termination parameter list. 

A subroutine for reading from or writing to the 
SYS1.SYSJOBQE data set. It uses the transient queue 
management routines to perform the necessary I/0 # and 
has the following entry points: 

RDQWA2 — Read into DAWA2 . 
WRQWA2 — Write from DAWA2. 

The subroutine checks for I/O errors and returns either 
normally to the next sequential instruction in IGC15099, 
or in case of error, directly to the error exit in the 
main routine, with a return code set. 

FREESIOT - frees the 176 byte SIOT buffer. 



None. 



h 



Data Areas 
Updated by 



DAWT, JFCB, SIOT, TIOT, UCB. 



-H 



Routines 
Called 



Transient Queue Manager (through DEQUCBS subroutine). 



(Continued) 
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I Mapping 

| Macros Used 

k- 



JIEFASIOT,, IEFJFCBN, IEFQMNGR, IEFTIOTl, IEFUCBOB 
|IEZJSCB, IKJTCB. 



j System 

| Macros Used 

t 

| Exit 

I 

I 



|DEQ f EXIT, FREEMAIN, GETMAIN, POST, WAIT, WTO (and 
|WTP), XCTL. 



I Normal: XCTL to IGC25099. 



I 



| Error: Return to the caller by SVC 3. 



j Registers | Register 1 contains the address of the DAWT. 

| at Exit | Normally, register 15 contains the address of the XCTL 

| | parameter list. 

| | For error conditions, register 15 contains return code 

| | passed by IGC13099 to IGC14099, as shown in Figure 36. 

L . X 



El 
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IGC16099 — CONVERT VALIDITY CHECKING ROUTINE 



r T 1 

| | Operation 

| Flowcharts | Diagram 

j. + ^ 

| JF | 23 

.J X 



| Entry 

t 

| Registers 

J at Entry 

I 

I 

h 



| Entered at entry point IGC16099 by XCTL from IGC00099. 



| Register 1 contains the address of the DAWT. 
| Register 4 contains the address of the TCB. 
| Register 15 contains the address of the XCTL parameter 
] list. 
-+- 



j Operation |- Waits for the reading of the SIOTTTR initiated in 

| | IGC00099. 

| | - Checks the validity of DDNAMEs and member names by 

| | using a subroutine- 

I I 

| |- Saves the TTR of the SI0T for the first DDNAME 

| | (DDNAME1 from the TIOT extension) in the DAWTVARY 

| | portion of the DAWT. 

I I 

| |- Determines whether saving a second TTR is necessary. 

| | (This is the case when the user specifies the 

I | "exchange" option and the TTRs for the DDNAME1 and 

| | DDNAME2 SIOTs are not in the same TTR record.) 

I I 

| |- Saves either this second SIOTTTR or the SIOTTTR of the 

| j SIOT for DDNAME2 in DAWTVARY. 

I I 

| |- Changes the use attribute for the data set to 

j | "exclusive", if necessary. 

I I 

J | Updates the DSENQ table to reflect this change. 



j Ma jor 
(Subroutines 



|Data Areas 
| Created by 
t 

| Data Areas 
j Updated by 
I 



| A subroutine for performing the validity checks 
| on the DDNAMES and member names , as necessary. 

-+- 



| None. 
I 



| JSCB - ECB to post for the initiator. 
| DAWT - fields to indicate the necessary action. 
|DSENQ - To reflect the change in the use attribute 
I from rt shared" to "exclusive". 



^ , 

| Routines 
I Called 



H 



j;Map£ing 

| Macros Used 

l~— ™ 

|System 

| Macros Used 

| Exit 
I 

[Registers 
| at Exit 

I 

I 



| The name-dheckiiig subroutine,, and the transient 
| queue manager. 

IIKJTTCB, SIOTTTR, IEFQMNGR, IEFTlOTl, TIOTEXT, 
jilEZJSCB 



[EXIT, FREEMAIN, GETMAIN, POST, WAIT, XCTL. 
I_ 

| Normal: XCTL td IGC17099 via XCTL. 
| Error: fteturn to the caller by SVC 39 

| Register 1 contains the address of the DAWT. 
[Register 15 normally contains the address of the XCTL 
[parameter list. For error conditions, it contains a 
[return code as shown in Figures 36. 
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IGC17099 — SIOT AND JFCB UPDATING ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 
k + 

I JF I 23 






| Entry 

I 

Registers 
at Entry 



(Entered at entry point IGC17099 by XCTL from IGC16099. 

-4- 



Operation 



Register 1 contains the address of the DAWT. 
Register 15 contains the address of the XCTL parameter 
list. 
+ 

Determines which control blocks are necessary to satisfy 
the requests on the caller's parameter list, and obtains 
them. Updating the control blocks may include the 
following operations : 
JFCB - Changing the status or the member name. 

- Clearing the DCB-related fields — This operation 
also involves turning on the bit that prevents a 
forward merge, and setting the blocksize to the 
user's specifications. If the address of an 
ATRCB is provided in the DAWT data area, the DCB 
parameters in that ATRCB will be placed into the 
JFCB. 

SIOT - Changing the status, disposition, or DDNAME* 

- Placing the UCB address in the low-order two 
bytes of the unit type field (SCTUTYPE). 

- Obtaining, and updating as above, a second SIQT - 
this one for the second DDNAME supplied via the 
user's selection of the "exchange" option. 

TIOT - Changing the DDNAME (s) to agree with 
corresponding changes in the SIOT(s). 



\- 



— +- 



Major 
Subroutines 

Data Areas 
Created by 

Data Areas 
Updated by 



Routines 
Called 



Writes the updated records to SYSl. SYSJOBQE and 
transfers control to IGC25099. 



WRITEREC - to write records to SYSl. SYSJOBQE. 
READREC - to read records from SYSl. SYSJOBQE. 

None. 



4 

DAWT - 
JFCB - 

SIOT - 
TIOT - 



transient queue manager parameter area (QMPA), 

status , member name, DCB related fields,, 

blocksize. 

status, disposition, DDNAME. 

DDNAME. 



4- 



Transient queue manager. 



B 
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j Mapping 

j Macros Used 

I 

| System 
(Macros Used 

I 

j Exit 



|IEFASI0T, IEFJFCBN, IEFQMNGR, IEFTIOT1, IKJATRCB, 
| SIOTTTR. 



| EXIT , FREEMAIN, GETMAIN, XCTL. 
I 



| Normal: XCTL to IGC25099. 

I 

| Error: Return to the caller by SVC 3. 
_ + 

| Register 1 contains the address of the DAWT. 
(Register 15 normally contains the address of the XCTL 
| parameter list; for error conditions, it contains a 
| return code as shown in Figure 36. 

-± . : 



[Registers 
at Exit 
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IGC18099 — CONCATENATION LIST CONSTRUCTION ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 

f + 1 

| JD | 24 



| Entry 

I 

Registers 
at Entry 



h 



(Entered at entry point IGC18099 by XCTL from IGC00099. 
4 

Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 15 contains the address of the XCTL parameter 

list. 



Operation 



Major 
Subroutines 



- Waits for the reading of the SIOTTTR initiated in 
IGC00099. 

- Gets space for and builds the concatenation list 
(CATLST) , which consists of the addresses of the 
entries to be concatenated in the order that they are 
to be concatenated. 

- Determines the number of entries for, and the length 
of, the new TIOT. 

- Gets main storage for the TIOT and the concatenation 
table (CATTAB) (see Section 5) based on the numbers 
determined above. 

- Prepares CATTAB by recording the old addresses of each 
TIOT entry. 

- Begins constructing the new TIOT using the addresses 
of the entries from CATLST, and by turning on the 
"entry handled" flag (ENTHND) in CATTAB for each entry 
it processes . 

None. 



*- 



t- 



Data Areas 
Created by 



H 



Data Areas 
Updated by 



Routines 
Called 



Mapping 
Macros Used 



System 
Macros Used 



Exit 



| 

Registers 
at Exit 



— I 



CATLST, CATTAB, new TIOT (partially) 



— I 



(Same as above). 



H 



None. 



IEFTIOTl, IKJTCB. 



-H 



EXIT, FREEMAIN, GETMAIN, WAIT, XCTL. 



—I 



Normal : 



XCTL to IGC19099. 



Error: Return to the caller by SVC 3. 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

For error conditions, register 15 contains a return code 

as shown in Figure 36. 



-i 



B 
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IGC19099 — TIOT BUILDING ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 

h + __ ^ 

I JD | 24 

_J- ± 



| Entry 

t 

| Registers 
| at Entry 



h 



j Entered at entry point IGC19099 by XCTL from IGC18099. 



j Register X contains the address of the DAWT. 

| Register 4 contains the address of the TCB. 

] Register 15 contains the address of the XCTL parameter 

|list. 



j Operation |- Examines each CATTAB entry and moves those not 

| | previously moved to the TIOT. 

| |- Turns on the DCBUP flag in the CATTAB entry if the 

(I | data set associated with the corresponding TIOT entry 

| I is open. This indicates that updating the DCB for 

| | this data set may be necessary after its TIOT entry is 

| J moved. (See the description of operation for 

| | IGC35099.) 

I |- Increments OPENNUMB in DAWTVARY each time it earmarks 

| | an open data set for updating to show the number of 

| | such data sets. 

| j- Checks the OLDISP and NEWDIEP entries in CATTAB for 

J | any inequality when the new TIOT is complete. The 

j | inequalities, if there are any, reflect changes to the 

| | position of the entries in the new TIOT. 

| | • Moves the new TIOT over the old one, if there axe no 

| | changes, and transfers control to IGC25Q99. 

| | • Obtains main storage for and calls the transient 

| | queue manager to read in the SIQTTTRs, if any 

| | rearrangement of the entries has taken place. Then 
| it transfers control to IGC20O99. 



H 



| 

| Ma jor 

| Subroutines 

| 

| Data Areas 
| Created by 
| 

| Data Areas 
[updated by 



I None. 



H 



|New TIOT (completion of the one started in IGC18099). 



| CATTAB. 



I 

| Routines 
| Called 



I 
-+- 



(Transient queue manager. 



iMapping 

| Macros Used 

* ~ 

j System 

I Macros Used 



-H 



JJLEFQMNGR, IEFTIOTl, IKJTCB, SIOTTTR, TIOTEXT. 



JEXIT, FREEMMN, GETMAIN, XCTL. 



k 

| Exit 

I 

% 



_ + __ 

| Normal : 

| • XCTL to IGC2Q099 if the TIOT entries are rearranged. 
| • XCTL to IGC25099 otherwise. 
(Error: Return to the caller by SVC 39 
_ + 

| Register 1 contains the address of the DAWT. 

| Register 4 contians the address of the TCB. 

I For error conditions, register 15 contains a return code 

| as shown in Figure 36. 

_j „ , 



t 

| Registers 
| at Exit 
I 
I 
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IGC20099 — TIOT MOVING ROUTINE 



r t 1 

| | Operation 
| Flowcharts | Diagram 
(. + 

| JD | 24 

~L X 



| Entry 

I 

Registers 
at Entry 



(Entered at entry point IGC20099 by XCTL from IGC19099. 



I 

Operation 



Major 
Subroutines 



Data Areas 
Created by 



Data Areas 
Updated by 



h 



Routines 
Called 



Mapping 
Macros Used 



System 
Macros Used 
I 

Exit 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 15 contians the address of the XCTL parameter 

list. 



- Compresses the SIOTTTRs into a single array for 
indexing and rearranges them to reflect the new 
structure of the TIOT by using the old position 
(OLDPOS) and new position (NEWPOS) entries in the 
CATTAB. 

- Decompresses the SIOTTTRs, moves the headers back, and 
writes them to the SYSl.SYSJOBQE data set. 

- Determines by examining the DCBUP bit whether updating 
the DCB is necessary (IGC19099 turned the bit on if 
updating may be necessary). 

• Moves the new TIOT over the old one, frees main 
storage, and transfers control to IGC25099 if the 
bit is off in all CATTAB entries.. 

• Gets main storage for and prepares the DCB update 
parameter list, whose address it places in register 
1. Moves the new TIOT over the old one. Frees main 
storage (except for the DAWT and the update 
parameter list), places the address of the DAWT into 
register 0, and transfers control to IGC35099 if the 
bit is on in any CATTAB entry. 



None. 



DCB update parameter list. 



CATTAB, SIOTTTRs, old TIOT. 



Transient queue manager. 



IEFQMNGR, IKJTCB, SIOTTTR, TIOTEXT. 



EXIT, FREEMAIN, GETMAIN, XCTL. 



Normal: 

XCTL to IGC35099 for DCB updating, if necessary. 
XCTL to IGC25099 for DSE updating otherwise. 

Error: Return to the caller by SVC 3. 



□ 



(Continued) 
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[Registers 
at Exit 



I Exit to IGC25099: 



Register 1 contains the address of 
the DAWT. 



I Exit to IGC35099: 



Register contains the address of 
the DAWT. 



L ! 



Register 1 contains the address of 
the DCB update parameter list. 

| Return to the caller: Register 15 contains a 

return code as shown in 
Figure 36. 



j 



IGC21099 — TSO TERMINAL KEEP MESSAGE PROCESSING ROUTINE 



r t 1 

| (Operation 

| Flowcharts | Diagram 

j. + , 

| JC I 22 

.J J 



Entry 



Registers 
at Entry 



+ . 



[Entered at entry point IGC21099 by XCTL from IGC06099. 



Register 1 contians the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 5 contains the address of the enqueue parameter 

list. 

Register 15 contains the address of the XCTL parameter 

list. 



Operation 



Constructs the KEEP message (IEF280E) for TSO terminals 
according to requirements passed from IGC06099, 
determines which TSO terminals are to receive the 
message, and directs the message to the terminals as 
well as to the SYSOUT device and to the operator's 
console. 



Major 
Subroutines 

i 

Data Areas 
Updated by 

i 

Routines 
Called 

h 



None. 



None, 



None. 



-H 



Mapping 
Macros Used 



CVT f IEEBASEA, IEFJFCB, IEFTI0T1, IKJTCB, IKJTJB, 
IKSTSCVT. 



System 
Macros Used 



TPUT, XCTL. 



h 



— I 



Exit 

I 

Registers 
at Exit 



XCTL to IGC03 099. 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 5 contains the address of the enqueue parameter 

list. 

Register 15 contains the address of the XCTL parameter 

list. 
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IGC23099 — DECONCATENATION ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 

y + j 

| JE | 25 

_J ± 



j Entry 

h 

Registers 
at Entry 



(Entered at entry point IGC23099 by XCTL from IGC00099. 



I 

Operation 



i 

Major 

Subroutines 
I 

Data Areas 

Created by 

| 

Data Areas 
Updated by 



Routines 
Called 



Mapping 
Macros Used 



System 
Macros Used 
j. 

Exit 



I 

Registers 
at Exit 

L 



Register 1 contains the address of the DAWT. 

Register 4 contains the address of the TCB. 

Register 15 contains the address of the XCTL parameter 

list. 



- Waits for the reading of the SIOTTTTR that IGC00099 
(the control routine) initiated , and checks for 
reading errors . 

- Reads in all the SIOTTTRs and compresses them into a 
single array that it can index. 

Points to the TIOT entries specified for 
deconcatenation in the array, and performs processing 
to create a list of DDNAMEs from the associated SIOTs 
and to check for errors. The resultant list comprises 
DDNAMEs that are valid for deconcatenation. 

- Moves the DDNAMES from the list to the appropriate 
TIOT entries to accomplish the specified 
deconcatenation operations. 

- Transfers control to IGC25099 for DSE updating. 



None. 



H 



List of DDNAMEs for internal use. 



TIOT. 



Transient Queue Manager. 



IEFASIOT, IEFQMNGR, IEFTI0T1, IKJTCB, SIOTTTR, 
TIOTEXT, IKJATRCB. 



EXIT, FREEMAIN, GETMAIN, XCTL. 



Normal: XCTL to IGC25099, 



Error: Return to the caller by SVC 3. 



Register 1 contains the address of the DAWT. 

For error conditions, register 15 contains a return code 

as shown in Figure 36. 



H 



B 
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IGC25099 — DSE UPDATE ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 



I- 



JG 



26 



H 



h 



Entry 



Entered at entry point IGC25099 by XCTL from IGC00099, 
IGC03099, IGC15099, IGC17099, IGC19099, IGC20099, 
IGC23099, or IGC35099. 



Registers 
at Entry 



k- 



Operation 



Register 1 contains the address of the DAWT. 

Register 15 contains the address of the XCTL parameter 

list. 



- Places the JFCB address contained in the DD1ADD 
field of DAWTVARY into the DAW1P field also, 

- Transfers control to other routines as follows: 

• To IGC27099 if the entry is via the allocation 
control routine or the deconcatenation routine. 

• To IGC29099 if the entry is via the freeing or the 
concatenation routines. 

- Otherwise, processing continues via the DSESERCH 
subroutine, which looks for DDNAME(s) that the user 
supplies via either the DATASET or the CONVERT 
function parameter lists. Reaction to the search is 
as follows: 

• Unsuccessful search (no DDNAME found) — causes 
control to transfer to IGC26 099 with a return code 
of X'SOU' in the DAWT. 

• Successful search : 

1) When entry is from the attribute conversion 
routines (CONVERT function) , control passes to 
IGC260 99. 

2) When entry is from the allocation routines 
(DATASET function), the routine calculates the 
size of the new DSE block, obtains storage for 
it, initializes it, and then transfers control to 
IGC260 99. 



Major 
Subroutines 



H 



DSESERCH - Called to look for the DDNAME (s) that 
should appear in the user's parameter list when entry to 
IGC25099 is from either the DATASET or CONVERT function 
routines . 



Data Area 
Created by 



New DSE block. 



H 



h 



Data Areas 
Updated by 



DAWTVARY portion of the DAWT. 



Routines 
Called 



None. 



Mapping 
Macros Used 



CVT, IEFJFCBN, IEZJSCB, IKJDSE, IKJTCB, IKJTJB, 
IKJTJBX, IKJTSCVT. 



(Continued) 
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I T T 

| System JFREEMAIN, GETMAIN, XCTL. | 

| Macros Used | | 

I + ^ 

|Exit |XCTL to IGC26099, IGC27099, OR IGC29099. | 

,. + 1 

(Registers | Register 1 contains the address of the DAWT. | 

jat Exit | In case of error, RTCODE (in the DAWT) contains return | 
I | code 504 (see Figure 36). | 

i ± J 



□ 
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IGC26099 — DATASET AND CONVERT UPDATE ROUTINE 



| Entry 



t- 



r t 1 

| | Operation 

| Flowcharts | Diagram 

I. + 4 

| JG | 26 

JL X 



I Entered at entry point IGC26099 by XCTL from IGC25099. 



*- 



Registers 
at Entry 



Operation 



Register 1 contains the address of the DAWT. 

Register 15 contains the address of the XCTL parameter 

list. 



-H 



- Moves the TCB address in from the parameter list and 
turns on the "dynamically allocated" bit; invokes the 
DSECHAIN subroutine to place the DSE to the top of the 
chain of DSEs; moves in the status; determines whether 
entry is from the DATASET or the CONVERT function 
(through IGC25099) and performs one of the following 

operations , accordingly : 

• DATASET - Places the device type and the volume 
serial number on which the allocated data set 
resides into the DATASET parameter list. 

• CONVERT - 

1) Exchange option specified — Swaps the positions 
of DDNAME1 and DDNAME2 in their respective DSEs. 

2) Normal and conditional dispositions specified — 
Moves the specified dispositions from the CONVERT 
parameter list to the DDNAME1 DSE. 

-* Processing the DSE for permanent allocation: turns on 
the "permanently allocated" bit. 

- Processing the DSORG field in the DSE if the field is 
zero: 



• For old data sets 
the DSCB. 



Moves the DSORG field in from 



• For new data sets - 

1) Sets the field "PO" if there is a directory 
quantity for the data set. Moves in the 
membername # if supplied. 

2) Sets the field "PS", otherwise. 

- Processing the DSE when the user specifies a password: 

If there is no TTR in the DSE (DSETTRPW field), the 
routine issues the PROTECT SVC and places the returned 
TTR in the DSE. Then it releases the old DSE (for the 
DATASET function) and exits to the caller. 



H 



Major 
Subroutines 



DSECHAIN, for placing the DSE for permanent allocation 
on the chain of DSEs, as described in "Operation", 
above. 



1 

Data Areas 
Created by 



PROTECT SVC parameter lists. 



(Continued) 
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h 



Data Areas 
Updated by 



DSE. 



Routines 
Called 



PROTECT (SVC 98). 



Mapping 
Macros Used 

I 

System 
Macros Used 



CVT, IEFJFCBN, IEFTIOTl, IEFUCBOB, IKJDSE, IKJTCB 
IKJTJBX. 



EXIT f FREEMAIN, GETMAIN, OBTAIN, PROTECT , XCTL. 



Exit 



Registers 
at Exit 



Normal: XCTL to IGC28 099 if SMF is active in the 

system. Return to the caller by SVC 3 with a 
zero return code. 

Error : Return to the caller with an error return code. 



Register 1 contains the address of the DAWT if the 
exit is to IGC28099. 

For error conditions, register 15 contains return code 
67zz (see Figure 36). 



□ 
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IGC27 099 — DECONCAT AND CONTROL ROUTINE HANDLING ROUTINE 



r t 1 

| (Operation 

| Flowcharts | Diagram 



h- 



JG 



26 



"f 



| Entry 
j. 



Registers 
at Entry 



| Entered at entry point IGC27099 by XCTL from IGC25099. 



Register 1 contains the address of the DAWT. 

Register 15 contains the address of the XCTL parameter 

list. 



-H 



Operation 



Entry from the Allocation Control routine (IGC00099) 

• Marking the DSE entries as not in use - 

1) Indicated by a DSLNGTH of zero in the input 
parameter list. 

2) Bit 31 in the input parameter list indicates that 
the TCB address field contains the address of the 
single DSE that is to be marked not in use. 

3) Bit 30 in the input parameter list indicates that 
all DSE's except those allocated to the current 
task and its ancestors are to be marked not in 
use. 

4) Otherwise the TCB address becomes the search 
argument for the DSESERCH subroutine , which 
determines the proper DSE to mark. 

• Processing for DSNAME updating - 

1) Places the address of the DSNAME in the DSNADD 
field of DAWTVARY in response to a nonzero 
indication in DSLENGTH. 

2) Uses DSNADD as the search argument for the 
DSESERCH subroutine, which looks for the proper 
DSNAME. 

3) For password data sets, ensures that any 
available password TTR, or password itself, is in 
both the DSE and the DSEUPDATE parameter list- 
Uses the password via the PROTECT SVC 98 to 
attempt to obtain the password TTR for the 
parameter list if it is otherwise unavailable. 

• Exit from the Allocation Control routine entry is 
always a return to the caller by SVC 3 after freeing 
the DAWT. 

Entry from the deconcate nation routines (DECONCAT) : 

• Restores the DDs of the concatenated DDNAMEs - 

1) Uses the DSESERCH subroutine to look for matches 
to the search argument DDNAME in each successive 
DSE block on the chain, until it finds a block 
with a mismatch. 

2) Moves the DDNAME from the TIOT entry 
corresponding with the next succeeding DSE block 
on the chain into each DSE block that produced a 
match. This operation performs the 
deconcatenation annotation. 

• Turns off the dynamically concatenated bit for each 
DDNAME de concatenated as above. 

• Makes the exit determination depending upon whether 
SMF is active in the system. 



j 
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h 



Data Areas 
Updated by 

i 

Routines 
Called 



Major 
Subroutines 



t 1 

DSESERCH — used variously,, as described in "Operation" 

above. 



Data Areas 
Created by 



+- 



PROTECT SVC parameter list. 



DSE, DSE UPDATE parameter list. 



H 



PROTECT (SVC 98), 



h 



Mapping 
Macros Used 



CVT, IEFTIOT, IKJDSE, IKJTCB, 



System 
Macros Used 



EXIT, FREEMAIN., GETMAIN, XCTL. 



Exit 



Normal: XCTL to IGC28 099 if SMF is active in the 
system. 

Return to the caller by EXIT SVC with a normal return 
code. 

Error: Return to the caller by SVC 3 with an error 
return code. 



Registers 
at Exit 



Register 1 contains the address of the DAWT, but only 
when exit is to IGC28 099. 

For error conditions. Register 15 contains return code 
504 (see Figure 36). 



□ 
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IGC28099 — SMF EXIT ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 

j. + 1 

| JG | 26 

.J ± 



Entry 



Registers 
at Entry 



Operation 



Entered from IGC26099, IGC27099, and IGC29099 at entry 
point IGC28099, but only if SMF is in the system. 



Register 1 contains the address of the dynamic 
allocation work table (DAWT) . 



Two operations : 

1) Dynamically maintains the TCTIOT after dynamic 
allocation processing of either dataset allocation or 
concatenation functions. 

2) Builds a Type 40 SMF record after the freeing, 
concatenation, or deconcatenation functions have 
executed. 



Major 
Subroutines 



Contains groups of instructions that uniquely 
correspond to and record the action of the functional 
groupings of SVC 99 routines. These groups of 
instructions constitute the following inline 
subroutines: 

1) ALLOCATE (corresponds to DATASET) — Updates the 
TCTIOT for allocated DDs. 

2) UNALLOCATE — Builds a Type 40 SMF record which 
contains an EXCP field for evey device entry of the 
unallocated DD and zeros the entire DD entry in the 
TCT I/O counter table. 

3) CONCATENATE — Builds a Type 4 SMF record that 
contains an EXCP field for each device entry in every 
DD represented in the TCT I/O counter table, then 
completely rebuilds the table. 

4) DECONCATENAME — Builds a Type 40 SMF record for 
every device entry for all DDs in the TCTIOT, then 
zeros its TCTDCTR field. 

5) Exit routine — Provides a common exit for all 
routines above, issues SMFWTM after building the SMF 
record, and frees DAWT. 



Data Areas 
Created by 

i 

Data Areas 
Updated by 



SMF dynamic Type 40 DD record. 



The following fields in TCTIOT: 

• TCTUCBP 

• TCTSCTR 

• TCTDCTR 



Routines 
Called 



None. 



(Continued) 
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|Macro JCVT, IEFTIOT1, IEFUCBOB, IKJTCB. 

| Macros Used | 

|. + 

| System |FREEMAIN, GETMAIN, SMFWTM. 

| Macros Used | 

h 



-H 



JExit 

I 

| Registers 

| at Exit 

l 



| Returns to the calling program. 

-+- 



| Register 15 contains the return code passed to this 
| routine in the RTCODE field of the DAWT. 

-X 



□ 
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IGC29099 — UNALLOC AND CONCAT UPDATE ROUTINE 



| Entry 



r t 1 

| | Operation 

| Flowcharts | Diagram 

i .__ + < 

| JG | 26 

__J. -L ., 



b- 



Registers 
at Entry 



j Entered by XCTL at entry point IGC29099 from IGC25099. 



Register 1 contains the address of the DAWT. 

Register 15 contains the address of the XCTL parameter 

list. 



H 



Operation 



• Invokes the DSESERCH subroutine to look for the DSEs 
in inverse order from which their associated DDNAMEs 
appear in the input parameter list, 

• Invokes the DSECHAIN subroutine to attach each such 
DSE as it is found to the beginning of the DSE 
chain. 

• Marks each such DSE as dynamically concatenated. 

• Propagates the first DDNAME (DDNAME1) through the 
DDNAME fields of each such marked DSE. 

- Entry from the freeing routines (UNALLOC) - 

• Invokes the DSESERCH subroutine to look for the 
freed DDNAME. 

• Fills all but the first ten bytes of the DSE with 
zeros, marks it as "DYNAM", moves in the DDNAME, and 
sets the DSNAME field to "NULLFILE". 

• Invokes the DSECHAIN subroutine to attach the DSE to 
the end of the chain. 

- Determines whether SMF is in the system, and exits 
appropriately (see "Exit" below). 



Major 
Subroutines 



DSESERCH and DSECHAIN — used at various times for the 
purposes outlined in "Operation" above. The area used 
for communications between the subroutines and the 
modules of the UPDATE function is the DAWTVARY portion 
of the DAWT. The fields in DAWTVARY serve as a forward 
and backward parameter list for the main routines and 
subroutines. See the appropriate DAWTVARY description 
in Section 4. 



h 



-H 



h 



Data Areas 
Created by 



None. 



h 



Data Areas 
Updated by 



DSE, DAWTVARY. 



Routines 
Called 



None. 



-H 



Mapping 
Macros Used 



CVT, IKJDSE, IKJTCB, IKJTJBX. 



System 
Macros Used 



EXIT, FREEMAIN, GETMAIN, XCTL. 



(Continued) 
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T 

I Exit | Normal: XCTL to IGC28099 if SMF is active in the 
| system. 
| Return to the caller by SVC 3 with a normal return code. 

I 

| Error: Return to the caller by SVC 3 with an error 

| return code. 

, + j 

| Registers | Register 1 contains the address of the DAWT, but only 
| when exit is to IGC28099. 

| For error conditions, register 15 contains return code 
| 504 (see Figure 36.) 

l ± . J 



□ 
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IGC30099 — ATTRIB FUNCTION 



T 1 

Entered from IGC00099 at entry point IGC30099 by an XCTL 
macro instruction. 



h 



Entry 



Registers 
at Entry 



Operation 



Register 1 contains the address of the dynamic 
allocation work table (DAWT). 

Register 15 contains the address of the XCTL parameter 
list. 



H 



Creates ATRCBs. 

Places ATRCBs on the ATRCB chain. 

Removes ATRCBs from the ATRCB chain. 



— 1 



Major 
Subroutines 



None. 



Data Areas 
Created 



ATRCB 



Data Areas 
Updated 



None. 



Routines 
Called 



None. 



-H 

—I 



Mapping 
Macros Used 



IKJDACB, IKJATRCB, IKJTCB, CVT, 
IEZJSCB, IKJTJB, IKJTJBX, IKJTSCVT. 



System 
Macros Used 



None. 



-H 



Exit 
|. 

Registers 
at Exit 



To caller (IGC00099) via SVC3. 



Register 15 contains a return code of upon 
successful completion. 
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IGC35099 — DCB UPDATE ROUTINE 



r t 1 

| | Operation 

| Flowcharts | Diagram 

j. + , 

| JG | 26 
.J ± 



Entry 



Registers 
at Entry 



Operation 



Major 
Subroutines 



Data Areas 
Created by 



Data Areas 
Updated by 



Routine 
Called 



Mapping 
Macro Used 



System 
Macros Used 



Exit 



Register 
at Exit 



Entered at entry point IGC35099 by XCTL from IGC20099 in 
the concatenation function. 



Register contains the address of the dynamic 
allocation work table. 

Register 1 contains the address of a parameter list. 



H 



Updates the DCB TIOT offset after the dynamic 
concatenation routines have rearranged the TIOT entries 
for open data sets. 



None. 



-H 



None. 



DCBTIOT. 



-H 



None. 



CVT, DCBD, IKJTCB. 



FREEMAIN, XCTL. 



-H 



TO IGC25099 via XCTL. 



Register 1 contains the address of the dynamic 
allocation work table (DAWT)o 



□ 



Section 3: Program Organization 391 



Program Flowcharts 

These flowcharts begin with an overall chart of the flow of control 
within all the dynamic allocation routines. The flowcharts for each 
DA1R routine immediately follow. Then the flowcharts for the individual 
SVC 99 functions show the flow of control among the modular routines in 
each function. 

The following list identifies the flowcharts and their order within 
this section. 

Chart I.D. Chart or Routine Name 

FA DAIRCTRL Routine 

FB DAIROO Routine 

FC DAIROU Routine 

FD(l-9) DAIR08 Routine 

FH DAIROC Routine 

FJ DAIR10 Routine 

FK DAIR14 Routine 

FL-FM DAIR18 Routine 

FN (1-3) DAIR1C Routine 

FQ DAIR24 Routine 

FR DIAR28 Routine 

FS DAIR2C Routine 

FT(1,2, 3) DAIR30 Routine 

FT (4 ,5) DAIR3U Routine 

FT (6) ATTRSRCH 

FU USERID and GENDDN Routine 

FV-FZ SEARCH Routine 

JA Overall Flow of Control in SVC 99 

JB DATASET Function Control Flow Overview 

JC UNALLOC Function Flow Overview 

JD CONCAT Function Control Flow Overview 

JE DECONCAT Function Routine — IGC23099 

JF CONVERT Function Control Flow Overview 

JG UPDATE Function Control Flow Overview 
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CHART FA — DAIRCTRL 



[ DAIRCTRL J 


' 


Bl 


Housekeeping; 
Save Registers, 
etc. 


1 


CI 


ENQ On the 
Resource 



Note: From 


FB/A5 


FF/D4 


FL/G3 


FQ/J5 




FB/F2 


FF/F5 


FL/B1 


FQ/K3 




FC/A4 


FF/K4 


FL/J1 


FR/B4 




FC/G3 


FG/B4 


FM/C3 


FR/E3 




FC/K1 


FH/A4 


FN/C4 


FR/F5 




FD/B2 


FH/D5 


FN/F4 


FS/A5 


1 FA 1 


FD/E5 


FH/E3 


FN/H1 


FS/El 


X.B2^ 


FD/J5 


FJ/A4 


FN/J4 


FS/J4 




FD/K5 


FJ/E5 


FP/B4 


FT/A5 




FE/C2 


FK/A4 


FP/C1 


FT/E4 




FE/C3 


FK/G5 


FQ/A4 


FT/G5 


EXITCODE^/\b2 


FE/C4 


FL/E4 


FQ/F5 


FT/J1 
FT/K3 


/ Branch to >y 


. No 









Another Routi 



Enter Branch Table 
and Return to 
Proper Routine 





GETMAIN for 
Parameter List 
Area 



Gl 



Initialize DAIR 
Work Area 



Enter Branch Table 
and Go to Proper 
Routine 



(Branch to \ 

Proper Routine J 



C Return to j 

Code X'28 1 J 



Free the 
Direct Access 
Parameter List 



EXITDEQ 




Issue DEQ 


UNSTAX - 


F H4 


Issue STAX 
to Allow 
Attentions 


' 


J4 


Put Return 
Code in User's 
Register 15 




K4 



f Return to Caller J 



Reset to Catlg 



Reset Volume 
and Device 
Type Fields 



Reset to Zero 



Reset to Zero 



El 
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CHART FB — DAIROO 



f Enter j- 



USERID 
ROUTINE 



(Chart FU) 






Set Up for 
Search On 
Dataset Name 



SEARCH 
ROUTINE 



(Chart ,FV) 



Set Bit 6 of 
Parm Flags 
(Dsname Found) 




Set Up for 
Search On 
Ddname 




Set Bit 6 Of 
Parm Flags 
(Ddname Found) 




Set Bit 5 of 
Parm Flags 



Set Bit 7 of 
Parm Flags 



Set Bit 4 of 
Parm Flags 
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CHART FC — DAIR04 



f Enter j- 



USERID 
RouMne 




CTRC Field = 
R15 from 
LOCATE 



^3 
DSNAME \Ye$v 




Yes / USERID 

to be Prefix 











C3 


No 


Set Up for 
Search on 
DSNAME 








" 


D3 




Search 
Routine 




G3 






RTCODE = 8 




Set Bit 5 in 
Parm Flags 
(DNAME Found 
in Catalog) 




1 


K2 




' 


K3 




FREEMAIN 








Area 











RTCODE = 4 



Yes 




Set Bit 6 in 
Parm Flags 
(DSNAME in DSE) 




RTCODE = 














* ' 



Q 
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CHART FD (1 OF 9) — DAIR08 

DAIR08 Al 



( DAIR08 J 




From: 

FD4 

E3 

FD6 

F3 

FD6 

E4 

FD6 
G3 

FD7 
HI 

FD7 
G2 

FD7 
F3 

FD9 
C2 



c 



Return 
EXITCODE 



DDE J 



Set Up For 
Search On 
Attr- List-Name 




RTCODE4 



From: FD2 
J5 



H4 



■>• Rtcode = 4 



C Return To A 
EXITCODeJ 



FD| (2 of 9) 
.A3, 
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CHART FD (2 OF 9 ) — DAIR08 



FD2 From: FD1 FD1 
A3/ 1 G3 J3 



Copy Ddname 
and Member 
Name 



From: FD3 FD3 FD2 

B2 C2 I CI 




Set Dsnptr 
Back to Address 
of Buffer 



Rtcode = 4 


y 


r J3 


f Return to "\ 
l EXITCODE J 
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CHART FD (3 OF 9) -- DAIR08 



FD3 From: FD2 FD2 FD2 

. A2 ) E2 H4 J5 




Set Up For 
Search On 
Dsname 
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CHART FD (4 of 9) — DAIR08 




1 


Fl 


DAIR10 


Deconcat 


, 


r Gl 



Set Up to 
Deconcat 
Dataset 



DR4P1J4 



HI 



Restore 

Previous 

Status 



DR4P1J41 




H2 



■*© 



From: FD5 
B5 



B 



Y H3 



Unalloc 



(Return to A 
EXITCODE J 
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Chart FD ( 5 of 9) — DAIR08 



FD5 I From: FD4 FD4 FD4 
Al J Jl Kl J4 



From: FD4 
J4 

FD5 
B1 



Set the Convert 
Bit On 



OBTALOC 



From: FD6 FD7 
Fl A5 




Get Core For 
LOCATE 
Workarea 
(Subpool 1) 



Initialize \ 
the LOCATE \ 
Parameter J 

List / 



Parm List 
WORD03 = Unit 
Device in 
UNITDEF Field 



Issue LOCATE 
to Get Vol 
Serial No. 
and Device 
Type 




Parm List 
WORD03 = Sub 
UCB Vol Ser 
No. Address 



Parm List 
WORD03 = Main 
UCB Vol Ser 
No. Address 



Free Core 
For Locate 

Workarea 



Set '41C 
in DARC 
Field 



Set Rtcode = 12 



r*> 



DR4P1J2 




V E5 



(Return to A 
EXITCODE J 



400 Terminal Monitor Program (Release 21.6) 



Chart FD (6 of 9) — DAIR08 




Copy Password 



Copy Dsname 



C2 



Set Permanently 
Allocated Bit 



Initialize 
CONVERT 
and D5E 
UPDATE Parm 
l Lists 




Gl 
Exchange X. Yes 



Set Exchange 
Bit On 



Turn Exchange 
Bit Off 




Set ENQ 



Make Request Old 




DISP2, DISP3 = 



BLKSIZE =0 




From: FD8 FD8 
F3 D5 



RT CODE12 j E3 GIV EDDNM f E4 




Return Ddname, 
Dsname, and 
Dsorg 



JL 

FDl 

.El. 




Move LOCATE 
Information: 
Device Type and 
Vol. Ser. No. 



Zero Out the 
Last Four Bytes 
of Device Type 
Field 



Indicate that c 
LOCATE was 
Performed 



Free Core For 

LOCATE 

Workarea 



B 
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Chart FD (7 of 9) — DAIR0 8 



FD7 I From: FD5 FD5 FD5 
A1 J D2 J2 H3 



©■ 




FD7 From: FD5 
A3 ) Jl 



From: FD5 
G2 



Free Core 
For LOCATE 
Workarea 




TIOT Pointer 
is Incremented 
to the Next 
One 



C4 



Indicate to 
Set SVC Parm 
ListOMODNW 
Bit 



Place DSORG 
Information 
in UPDATE 
DSE Parm List 



Free Core For 

Obtain 

Workarea 



Set CTRC 
Field Equal 
to 'ZZ' 




Set DAIRDARC 
Field to 
'0218'X 




jl 

FD8 
,AK 



E3 



SetX'17ZZ' 
in DARC Where 
ZZ is Reg 15 
From LOCATE 



Free Core For 

OBTAIN 

Workarea 



Set X' 330' in 
DARC Field 


\ 


HI 


Set Rrcode = 12 


1 


r 




Set Rtcode = 8 



<s> 
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Chart FD (8 of 9) DAIR08 



FD8 I From: FD5 FD5 FD7 
Al ) CI B2 C4 



Password Given ? 



Non Blank ^ Yes 
Dsname ? 





Yes 




C2 


/\ci 

Permanently >. 




Set Permanently 
Allocated Bit 


Allocated ? S 







USING 
Specified 



Indicate 
Attr-List 
Supplied 
and Ptr to 
ATRCB 



Dsname 
Present ? 



Dummy Option ? 



Catalog 

Dataset 

.Requested ? > 



Should DAIR 
Catalog ? 





1 


G2 


Yes 


Set Dsname 




Present < 


Jption 



Set Dummy 
Option 





J2 


Yes 


Set Catalog 
Bit 





Yes Set the Catalog 

*1 Bit On 



Set Mod Treated 
As New Bit On 



Yes 


/ Ddname ^s. 

Specified ? > 

|No 

i C3 




GENDDN 


Generate a 
Ddname to 
Allocate 








7 D3 




Issue 

SVC 99 
DATASET 





Catalog \^ Yes 




El 
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Chart FD (9 of 9) — DAIR08 



FD9l From: FD2 
kl) CI 



ATTRSRCH 



Search ATRCB 
Chain 




Set- Error 
Return Code 



W 



B3 



Set Up For 
Search On 
Ddname 
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CHART FH — DAIROC 




Init DSE Update 
and Concat Lists 
in Area from 
Control 



SVC 99 
CONCAT 




RTCODE = 



No 


Put Return 
Code from 
Concat in 
DARC Field 




RTCODE = 12 












" 



B 
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CHART FJ — DAIR10 



A2 



FJ 
A2 

See Note 



•4 Enter V- 



Init DSEand 
DECONCAT List 
with Info from 
User 




SVC 99 
DECONCAT 



Note: From FE/G5 
FE/H2 
FF/F3 
FM/B3 
FP/A5 
FT/J3 



■^ Successful . 

|Yes 

T E4 


No 


Put DECONCAT 
Return Code in 
DARC Field 




E5 


RTCODE = 4 




RTCODE = 12 


















i ' 



^ 
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CHART FK — DAIR14 



A2 



( Enter V- 



RTCODE = 36 




Zero User's Area 



GETMAIN for 
IKJEHCIR 
Save Area, 
Work Area 
Parm List 



LINK 
IKJEHCIR 




Move Qualifier 
into User 
Return Area 



RTCODE = 40 




& 



Zero Out 
IKJEHCIR Work. 
Set Up Parm List 




RTCODE = 



G5 



Free Area for 
IKJEHCIR 



B 
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CHART FL — DAIR18 



A2y> *\ Enfer J- 



See Note 



USERID 
(Chart FU) 





RTCODE = 28 



RTCODE = 24 



Note: From FF/G4 
FP/C3 
FT/F5 




From FM/G2/ Prepai 



/ Update and Una Hoc 
\ List and Set 
\Status 



Search 

( Chart FV-FZ ) 



Put R15 in 
DARC Field, 
RTCODE = 12 




Set Up to 
Search from 
Next DSE Block 



-© 



408 Terminal Monitor Program (Release 21.6) 



CHART FM — DAIR18 



FM 
B2 

Fro^ FL/K2 



From FL/A2 



FM 1 From FE/J3 
V A2 ) FL/K2 




Prepare DSE 
Update Parm List 
to Mark Entry 
Not in Use 



DSE UPDATE 



B3 



Prepare DSE 
Update and 
Deconcat List and 
Set Status 



DAIR 10 




E2 



Set Up to Search 
On Dsname 
Associated with 
DD 




□ 
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CHART FN (1 OF 3) — DAIRlC 

DAIR1C A2 



( DAIRlC ) 




f Go to EXITCODE j 



Set Up For 
Search On 
Attr-List-Name 



ATTRSRCH 



Search ATRCB 
Chain 





ATTRSRCH 



Search ATRCB 
Chain 




Set Error 
Return Code 
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CHART FN (2 OF 3) — DAIRlC 



(Return to \^ 
EXITCODE J* 



From: FN1 
E4 




From: FN1 
G4 



Set Up For 
Search On 
Not-ln-Use 
Entries in DSE 



From: FN3 FN3 
A4 C5 



(Return to A 
EXITCODE J 





r J3 


Rtcode = 16 


1 


' K3 


r Return to A 
I EXITCODE J 




(Return to A 
EXITCODE ) 




B 
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CHART FN (3 OF 3) — 

I From: FN2 




DAIR1C 



From: FN2 FN2 
F3 J4 



From: FN2 
05 



(Return to A 
EXITCODE ) 







D3 


/\D2 

S User Supply a > 
X. Ddname ? y 

|No 
t E2 


> YCS * 


Put Users 
Ddname in 
Dataset List 










GENDDN 






Generate a 
Ddname For 
User 




\ 


F2 






Put Generated 
Ddname in 
DATASET List 








^ 






' 


i G2 






Issue SVC 99 
DATASET 
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CHART FQ — DAIR24 



A2 



f Enter V 



fq \ From FE / D3 

E3 *" 



H2 



hit DSE 
UPDATE and 
Convert List 



SVC 99 
Convert 




RTCODE = 20 



□ 



-® 



Put R15 in User's 
DARC Field 



RTCODE = 12 



frYes K3 
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CHART FR — DAIR28 



A3 

( Enter J 




Indicate Return 
Is to X'28' 
After Function 
Complete 



RTCODE = 4 




Increment 
to Next Parm 
List Pointer 



Store @ of 
Failed Function 
Parm List in 
X'28' List 



Put Return Code 
of Failed 
Function in R15 



cp 



414 Terminal Monitor Program (Release 21.6) 



CHART FS — DAIR2C 



Cl 






C2 




SEARCH 




Set Up for 
Search On 




No 




** 


( Chart FV ) 




Ddname 









Put a) of DSE jn 
which DD was Found 
in TCB Field of DSE 
Update List 



E2 



First Word of List = 
X ' 80000001 ' to 
Indicate DSE '«i f Not k 

tcb n 




First Word = > 

X ' 80000002 ' for 
DSE's Under Current 
Task y 




Yes 



RTCODE =0 



RTCODE= 12 



□ 
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CHART FT (1 of 6) — DAIR30 

DAIR30 Al 



f DAIR30 \ 




''Anr-List-Name V, Yes 
Given 



( Go to EXITCODEJ 



Set Up For 
Search On 
Artr-List-Name 



y D2 



ATTRSRCH 



Search 
ATRCB Chain 




Attr-lkt-Nlnmp X YeS > 

Found 



C Return to \ 

EXITCODE J 




Set Error 
Return Code 
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Chart FT (2 of 6) — DAIR30 




From: Ft! 
G4 



Set Up For 
Search On 
Dynam and Not- 
In-Use Entries 




' Indicate Use 

DSE and \ 

\ Deconcatenate / 



SEARCH 



C4 



DAIR10 




(Return to ^ 
EXITCODE ) 



, From: FT3 
FT2 | F2 



B 



Store R15 In 
DARC Field 
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CHART FT (3 OF 6) - DAIR30 



From: FT2 
K4 



FT3 I From: FT2 
A2 ) K4 




Generate 
Ddname 



D2 



Put Generated 
Ddname in 
Dataset List 



Issue SVC 99 
DATASET 



Put Users 
Ddname in 
Dataset List 





FT2 

J5 


FT3\_ 


Successful ? J, 

|Yes 

1 G2 


_J 


r 




ty 




Rtcode = 




From: 




r H2 






[*/ 


1 






f Return to "N 
I EXITCODE J 
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CHART FT (4 OF 6) — DAIR34 



HI 



Move Rehirn 
Code into 
DAPB 



Indicate 
Successful 
Return Code 



t K1 



(Go to EXITCODE J 



Initialization 
To Go To 
ATTRSRCH 



ATTR5RCH 



Search ATRCB 
and DSE Chains 
for Name 




Set Error 
Return Code 



(z 



]_ H2 



Go to EXITCODE J 



^ 



( DAIR34 J 




[ Go to EXITCODE J 



□ 



Set Error 
Return Code 



(Go to EXITCODE J 



Section 3; Program Organization 419 



CHART FT (5 OF 6) — DAIR34 



FT5 I F rom: FT4 
.A2 ) C3 




ATTRSRCH 



Search ATRCB 
and DSE Chains 
for Name 




Indicate Name 
Not Found 



C3 



Indicate Name 
Found 



Set Successful 
Return Code 



<• 



F2 



Go to EXITCODE } 
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CHART FT (6 OF 6) 



ATTRSRCH 



ATTRSRCH 



f ATTRSRCH J 




SEARCH 



Search On 
Ddname 



Get TJBX 
Address 




f Return to Caller J 



□ 
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CHART FU USERID 



A2 



( GENDDN J 



Save the Address 
of Calling Routine 



Set 1st 3 Bytes of 
DD NAME to "SYS" 



Get Address of 1st 
DSE on the Chain 



D2 



Add 1 to the 
DDNAME Counter 
in the ECT and 
Unpack it 



E2 



Set the Last 5 
Bytes of 

DDNAME =Value 
in the Counter 




c 



USERID 



/ IsDSN X. 
^Length +USERID 
\Aength +Dot/ 
^\>44^^ 

t. C4 

/ USERID \, 
^v Length >()/ 

i D4 








V p 


C5 


RTCODE = 4 




, 




Prefix USERID + 
Dot (X'48') to 
DSNAME in 
DAIR Work Area 




f 


ty 


V E4 






RTCODE = 






V F4 






f Return 
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CHART FV — SEARCH 



( Enter Y- 




From 
FZ/H2 



Zero Out Work 
Area and I nit 
DSEPTR 



^^ 



€>- 



qp- 




Save Addr of 
Next DSE Block 





Gl 




No 




Set DSNAME 
Found Bit 




^X"\. G2 

S DSNAME ^s 






\Found Bit OnS 








|Yes 

| H2 






Set Duplicate Bit 





















(jp 





Store Address 
of DSE In 
DDNADDR 



Put Addr of 
DSE in 
DDFIRST 



No ^ Member Name^ s Yes „ ^^Mpmher = that 
Given y^ v s v in DSE 









E5 


v No 


Get Addr of 
Next DSE 
Block 


> t > * 


No 









G 
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CHART FW — SEARCH 



From FV/H2 



iCodeX'18 



I No 



^ 



Is it in Use 



m 



W 




Entry 
Code=X'lC' 




Entry \v No 



^ 



Zero Out 
Options to 
Convert 




^P 



W 
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CHART FX — SEARCH 



From FW/A3 
FW/K3 



From FW/B3 
FY/B3 




□ 



W 
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CHART FY — SEARCH 



QP 



From FV/C3 
FW/E4 



Gl 




<08 ^V 

= MOD y 

Tno 


Yes 




<r Disp 
DSE = 


in >y 

MOD 

No 


v Yes 








^\E3 














Yes 




\' 




n DSEX 


^ 


aod y 








Y^No 











H FX 

B3. 





Yes 




H2 


/\hi 

CONCAT NotN 




Store DSE @ in 
CNCAADDR 


in Use y/ 

JNo 








1 



^ 



Store @ in 
NOTYADDR 
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CHART FZ — SEARCH 



Store @ In 
DYNMADDR 



From FV/F4 
FW/F4 
FX/H3 



^ 



From FY/A4 
FY/F2 
FZ/F2 
FZ/J1 




Put® of Next 
DSE in 
BLKPTR 




^ 



Store @ of 
DSE in 
DSNADDR 



Store @ of 
Next in 
BLKPTR 





Set Bit 4 in 
Work Area 
(Dynamically 
Concatenated) 




G4 



J RETURN J 




□ 



Store DD First 
in DDNADDR 
(DD Found More 
than Once) 



SetUpRU 


and Return 


to Proper 


Routine 


' 


K4 


f ■ RETURN J 
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CHART JA — Overall Flow of Control in SVC 99 



f SVC 99 J 



IGC00099 w 



CONTROL 



Initialize and 
Determine 
Control Flow 



Allocate a 
Data Set 



IGC18099 



Free a 
Data Set 



Entry Code from 
DAIR: 00 
HG3 



CONCAT 




DECONCAT 



Deconcatenate 
Data Sets 



"©" 



IGC35099 4r " F3 



Update the DCB 
to Reflect the 
Rearrangement 



IGC25099 \f G3 



DSE UPDATE 



Update the DSE 
as Necessary 



Q 



Return to DAIR J 



© 



D5 



CONVERT 



Change Data 
Set Attributes 







(Error Return tt>N 
DAIR — SVC 3 J 
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CHART JB — DATASET Function Control Flow Overview 



From: Allocation Control Routine 
IGC00099 




El 



(XCTLtoDSE "\ /Return to Caller^ 

Update Routined \Via EXIT SVC 2 J 
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CHART JC — UNALLOC Function Control Flow Overview 



TERMINAL 
-OR DUMMY 



(UNALLOC "\ 
Function Entry M 



From: Allocation Control Routine 
IGC00099 



Validity 
Checking 



ERROR 



-+JG4 



SYS OUT 
C3 



IGC04099 



SYSOUT 
Chain DSB 
Processing 



ERROR 



DISP NOT DELETE 
D3 



SYSOUT 
Enqueue 



MSGLEVEL=1 



® 



IGC06099 



KEEP 

Message 

Processing 



(E> 



Disposition 
Processing 



KEEP 
.MESSAGE 



■© 



IGC03099 



Device 
Unal location 



TERMINAL KEEP MESSAGE 
t G2 



IGC21099 



TSO Terminal 
KEEP Message 
Processing 



•© 



GXCTUoDSeN f Return to CallerN 

Update Routined \ViaEXITSVC3/ 
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CHART JD — CONCAT Function Control Flow Overview 





From IGC00099 






V B3 






IGC 18099 






Build CONCAT 
List and First 
Part of TIOT 


Error ^ 






Error 






V C3 




No SIOTTTR* 


IGC 19099 






Are Rearranged 


Build TIOT 
and Read 
SIOTTTRs 






' ^2 No <^n»n 


i 






V D3 




^ 


IGC20099 


' D4 


( IGC 
\^ DSEU 


>5099 ^\_^ Data Sets 


Rearrange 
SIOTTTRs and 
Move TIOT 


Err ° r *>f Rehjm 


to the A 


PDATE J 


''V^ Caller 


XCTL 


EXIT SVC 3 




} 


Open Da 
Position " 

r E3 


ta Sets Have Changed 
nthe TIOT 



CIGC35099 ^\ 
DCB UPDATE J 



XCTL 



c 
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CHART JE — DECONCAT Function Routine, IGC23099 



f IGC23099 J 



From Allocation 
Control Routine 
(IGC00099) 









A3 


(v) 


Using TIOT 
Position No. 
as Index to 
SIOTTTR, Get 
TTRof SIOT 


\jy 






V B3 



Call the 
Transient 
Queue Manager^ 
to Read the 
SIOT 



'Call the 

Transient 

Queue Manager^ 

to Read the 
vSIOTTTRs 



Compress the 
SIOTTTRs by 
Eliminating 
Headers and 
Moving TTRs Up 




NOTE : This list is later used 
to move all DDNAMEs to TIOT 
if no duplicates are found. 




Bump Pointer 
to Next TIOT 
Entry 



H2 



Move DDNAMEs 
Back to TIOT 
Free Core Except 
DAWT 



H3 



'XCTLtoDSE^ 

->-( Update Rtn ) 

(IGC25099) J 






-HC2 
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CHART JF — CONVERT Function Control Flow Overview 



(CONVERT *\ 
Function Entry J 



f Exit \ 



To Caller Via 
Exit SVC 



Via XCTL From Dynamic 
Allocation Control Routine 



I GC 16099 



Validity 
Checking 
ENQ Attribute 
Change 



( Exit W- 



To Caller Via 
Exit SVC 



I GC 17099 



Update JFCB 
Update SIOT 



( Ex " ) 

Via XCTL to DSE 
Update 



□ 
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CHART JG — UPDATE Function Control Flow Overview 



ci 



IGC26099 



Update the DSE 
to Reflect 
Allocation 



f From IGC20099 J ( From * 1 



DCB Updating 



Normal 



-K E3 



SMF 



IGC00099 
IGC03099 
I GC 15099 
I GC 17099 
IGC20099 
IGC23099 



IGC25099 



Initialization 
Routine 



IGC27099 



Locate and 
Modify the DSE 



<E> 



Normal 



•© 



IGC28099 



SMF Exit 
Routine 



(Return to the } 
Caller J 



IGC29099 



> Rearrange the 
DSE Chain 

i Mark the DSE 
for Freeing 



Normal 



>4E3 



SMF 
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Section 4: Directory 



These directories contain information to help you find the appropriate program 
description, flowchart, or assembler listing. They correlate information from three 
sources: 

• The source code. 

© The executable load modules. 

* This manual. 

DAIR DIRECTORY 
i r 






Label 



ATTRSRCH 

CHECKON 
CKMEM 
CKMEMORG 
CONVTEST 
DAIR CTRL 

DAIROO 
DAIR04 
DAIR08 
DAIROC 
DAIR10 
DAIR14 
DAIR18 
DAIR1C 
DAIR24 
DAIR 30 



Common Name 



Control 
Routine 



Code X'00 f 
Routine 

Code X'04' 
Routine 

Code X'08' 
Routine 

Code X'OC 
Routine 

Code X'lO" 
Routine 

Code X'14' 
Routine 

Code X'18 - 
Routine 

Code X'lC 
Routine 

Code X'24 f 
Routine 

Code X'30* 



Load 

Module 

Name 



IKJEFD00 

IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 

IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFD00 
IKJEFDOO 



1 

Assembly 

Module 

Name 

j 


Control 
Section 
Name 

L J 


Description 

L J 


r i 

Flow- 
chart 

i -l 


r 

Dia- 
gram 

L 


i 
IKJEFD00 


IKJEFD00 


r 1 
Search ATRCB chain and DSE 
chain for name. 


r i 

FT 


r 


IKJEFD00 


IKJEFD00 


Flowchart label. 


FE 


20 


IKJEFDOO 


IKJEFD00 


Flowchart label. 


FF 


20 


IKJEFD00 


IKJEFD00 


Flowchart label. 


FF 


20 


IKJEFD00 


IKJEFDOO 


Flowchart label. 


FE 


20 


IKJEFDOO 


IKJEFDOO 


i Initializes DAIRWA, routes 
control to DAIR routine 
corresponding to entry code. 


FA 


20 


IKJEFD00 


IKJEFDOO 


Search for data set in 
DSE Chain. 


FB 


20 


IKJEFDOO 


IKJEFDOO 


Search for data set in DSE 
Chain and system Catalog. 


FC 


| 20 


IKJEFDOO 


IKJEFDOO 


[Allocate data set by DSNAME. 


FD 


20 


IKJEFDOO 


IKJEFDOO 


Concatenate data sets by 
DDNAME. 


FH 


| 20 


IKJEFD00 


IKJEFDOO 


|Deconcatenate data sets 
by DDNAME,. 


FJ 


20 


IKJEFD00 


IKJEFDOO 


Search for qualifiers for 
| DSNAME. 


FK 


| 20 


IKJEFD00 


IKJEFDOO 


Unallocate a data set. 


FL 

FM 


| 20 


IKJEFD00 


IKJEFDOO 


Allocate a data set to 
the terminal. 


FN 


20 


IKJEFD00 


IKJEFDOO 


Allocate a data set by 
| DDNAME or DSNAME. 


FQ 


| 20 


IKJEFD00 


IKJEFDOO 


[Allocate a SYSOUT data set. 


FT 


20 



B 



(Continued) 
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r 

| Label 

L 


-T 

I Common Name 

4- 4 


r t t t 

Load | Assembly | Control | 

Module (Module | Sect ion | 

Name | Name JName | Description 
L i i i 


|Flow-|Dia-| 
j chart | gram | 

H- + -f 

j FT 1 20 | 


|DAIR34 


T 1 

| Code X'34' 
| Routine 


IKJEFDOO | IK J EFD00|IKJEFD00| Perform attribute list 
| | | operation. 


|EXITCODE|Exit 

| | Processing 

| | Routine 


IKJEFD00| IKJEFD00|IKJEFD00 | Routes control from one 
| j | DAIR routine to another 
| j (Loads return code and 
( | | returns to caller. 


| FA 


20 | 


| GENDDN 


| Generate 

| DDNAME 


IKJEFD00|IKJEFD00|IKJEFD00|Generates a DDNAME of the 

| j | form • SYSnnnnn* where nnnnn 
j j | is a count in the ECT. 






| USERID 


| Userid 
| Routine 


IKJEFDOO | IKJEFDOO) IKJEFDOO | Prefixes userid to data set 
| j | name. 


| FU 


20 | 


| SEARCH 
L ~ 


| Search 
| Routine 

_x - ■— j 


IKJEFD00| IKJEFDOO |IKJEFD00| Search the DSE chain for 
j j | information about a data 
I | | set. 

L X X X 


|FV-FZ| 20 | 
_X X J 
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SVC 99 Directory 



r r 

j Label | Common Name 
y + 


r 1 

Load 

Module 

Name 




r 1 

Assembly 

Modul e 
Name 



r t n 

Control | 

Section | 

Name | Description 
+ 


r 

Flow- 
chart 





Dia- 
gram 



| IGC00099 | Allocation 
| | Control 
j | Routine 


IGC0009I 


IGC00099 


IGC00099| Creates DAWT, performs 

[appropriate initialization, 
| and routes control to the 
[requested function. 


JA 


20 


| IGCO 109 9 | Validity 
| [Checking 
| (Routine 


IGC0109I 


IGC01099 


IGC 01 099 [Performs validity checks 
| f or the freeing function , 
[gets and initializes the 
|UNALLOC work area. 


JC 


22 


|IGC 0209 9 [Disposition 
j (Processing 
j [routine 


IGC0209I 


|IGC02099 


IGC02099J j Initializes message buffers, 
i [makes appropriate disposi- 
| changes to catalog, and 
| issues disposition messages. 


JC 


22 


| IGCO 30 99 | Device 
| | Freeing 
j | routine 


IGC0309I 


IGC03099 


IGC 03 099 [Performs the operations 

| necessary to free the data 
i | set requested. 


JC 


22 


| IGCO 409 9 [SYSOUT 
j | Chain DSB 
j [Processing 
| | routine 


IGC0409I 


IGC04099 


| IGC 04 09 9 [Provides interim processing 
| for SYS CUT data sets 
| between initial validity 
| checks and disposition 
[processing. 


JC 


22 


|IGC0 5099|SYSOUT 
| | Enqueuing 
| | routine 


IGC 05 091 


IGC05099 


IGC 05 099 [Performs the necessary 

[operations to enqueue the 
jdata set on the proper 
| output class . 


JC 


22 


|IGC06099|KEEP Msg 
j [Processing 
| | routine 


IGC0609I 


IGCO 60 99 


IGC06099| Completes KEEP message 
[IEF280E for the SYSOUT 
[device and the console, 
| and/or partially prepares it 
j for TSO terminal . 


JC 


22 


[IGCO 7099 [Validation 

|an Initial- 
| | ization 
| | routine 


IGC0709I 


IGC07099 


IGC 07 09 9 [Performs a series of checks 
[upon the validity 
jof the input to the 
| function of allocating data 
[ sets. 


JB 


21 


| IGCO 8099 |SYSOUT 

| [Processing 

j | routine 


IGC0809I 


IGC08099 


IGC08099| Processes SYSOUT data 
jsets, and generates a 
|DSNAME if necessary. 


JB 


21 


| IGCO 9099 |SIOT and 
| |JFCB Con- 
j [struct ion j 
i | routine 


IGC0909I 


IGC09099 


IGC 09 099 | Assigns a record for the 
JJFCB, if necessary, init- 
ializes and saves the SIOT 
| in a buffer, and initializes 
|the JFCB. 


JB 


21 



El 
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Label 
I 

IGC10099 



IGC11099 



IGC12199 



IGC13099 



IGC14099 



IGC15099 



IGC16099 



IGC17099 



IGC18099 



IGC19099 



Common Name 






Data Set 

Enqueuing 

routine 



DSENQ Up- 
date and 
DNT Load 
routine 



Bit Pattern 
Construc- 
tion 
routine 



Device 

Reduction 

routine 



DADSM 
routine 



TIOT and 
JFCB Update 
routine 

Validity 
Checking 
routine 



SIOT and 
JFCB Updat- 
ing routine 



Concaten- 
ation 
List Con- 
struction 
routine 

TIOT Build 
ing routine 



Load 

Module 

Name 



IGCL009I 



IGC1109I 



IGC1209I 



IGC1309I 



IGC1409I 



IGC1509I 



IGC1609I 



IGC1709I 



IGCL809I 



IGCL909I 



Assembly 

Module 

Name 



IGC10099 



IGC11099 



IGC12099 



IGC13099 



IGC14099 



IGC15099 



IGC16099 



IGC17099 



IGC18 099 



IGC19099 



Control 
Section 
Name 



IGC10099 



IGC11099 



IGC12099 



IGC13099 



IGC14099 



IGC15099 



IGC16 099 



IGC17099 



IGC18099 



IGC19099 



Description 



Searches the DSENQ table to 
ensure that the data set 
name is properly enqueued. 
If necessary, performs 
an ENQ. 

Writes and chains the up- 
dated DSENQ record , if nec- 
essary, and converts the 
unit name parameter to a 
device type using the device 
name table (DNT). 

Uses the device mask table 
(DMT) or searches the 
UCB's to convert the device 
type to a bit pattern 
representing eligible 
devices. 

Prepares a list of UCBs 
for valid allocation can- 
didates from the bit pattern 
derived from processing in 
IGC12099. 

Prepares a candidate attri- 
bute list and searches it 
for the best logical candi- 
date for allocation; in- 
vokes DADSM to allocate 
the required space. 

Updates the JFCB and TIOT 
as necessary to complete 
allocation. 

Checks the validity of 
DDNAMES and member names 
specified for the attri- 
bute conversion function. 

Updates the JFCB f the SIOT, 
and the TIOT as necessary 
to reflect changes to the 
data set attributes, as 
specified. 

Builds the CATLST and 
CATTAB and uses them to 
begin modifying the TIOT. 



Performs remaining nec- 
essary TIOT updating to 
complete the requested 
concatenation. 

X ; 



JFlow- 


|Dia- | 


| chart 

X J 


gram| 

h -f 

1 21 | 


T 1 
| JB 


| JG 




| JB 


21 | 


| JB 


20 | 


1 JB j 


21 | 


| JB 


21 | 


1 JB 


21 | 


| JF 


23 | 


1 JF 


23 | 


| JD 


24 | 


| JD 


24 | 
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r - "T - i 

| Label | Common Name 
j. + 


r 1 

Load 

Module 

Name 



r 1 

Assembly 

Module 

Nane 




r t 1 

Control | 

Section | 

Name ( Description 

+ 


1 

Flow- 
chart 



Dia- 
gram 




|IGC20099|TIOT Moving 
I | routine 


IGC2009I 


IGC20099 


IGC20099| Determines whether DCB up- 
| dating is necessary and 
| moves the new TIOT over 
|the old one. 


JD 


24 


|IGC22099|TSO Term- 
| |inal KEEP 
I [Processing 


IGC2109I 


IGC21099 


IGC21099| Constructs message IEF280E 
|and directs it to the 
(proper terminals. 


JC 


22 


| IGC23099 | Deconcate- 
j | nation 
j (routine 


IGC2309I 


IGC23099 


1GC23099| Modifies DDNAMEs in TIOT 
| entries as necessary to 
(accomplish the requested 


| JE 


25 


|IGC26099|DSE Update 
j | routine 


IGC2509I 


IGC25099 


IGC25099 (Initializes updating oper- 
| at ions and transfers con- 
|trol to appropriate modules 
| for the specific updating 
(required. The kind of up- 
| dating required depends 
(upon the function code. 


JG 


25 


|IGC26099|DATASET and 
| | CONVERT 
j | Update 
j | routine 


IGC2609I 


IGC26099 


IGC26099| Updates the DSE appropri- 
| ately for entry from 
|DATASET or CONVERT 
( functions . 


JG 


26 


| IGC27099|DECONCAT 
| | and 
j | Control 
j j Routine 


IGC2709I 


IGC27099 


IGC27 099 | Updates the DSE appropr- 
iately for the entry from 
JDECONCAT or the allocation 
| control routine. 


JG 


26 


|IGC28099|SMF Exit 
j | routine 


IGC2809I 


IGC28 099 


IGC28 099 | Builds a Type 40 SMF record 
|for SMF to reflect the 
(updating of the DSE. 


JG 


26 


|IGC29099|UNALLOC and 
| | CONCAT Up- 
j |date rou- 
j | tine 


IGC2909I 


IGC290 99 


IGC29099| Updates the DSE appropri- 
ately for the entry from 
|the UNALLOC or CONCAT 
(functions. 


JG 


26 


|IGC30099|ATRCB Up- 
1 jdate rou- 
j j tine 


IGC3009I 


IGC30099 


IGC30099| Builds, chains, and frees 
| ATRCBs 






|IGC3 5099|DCB Update 
| | routine 


IGC3509I 


IGC35099 


IGC35099| Updates the DCB after con- 
| catenation operations, if 
| necessary, prior to DSE 
(updating. 


| JG 


26 


|DSECHAIN|DSE Chain 
j | subroutine 


IGC2609I 


IGC25099 


IGC25099 | Chains DSEs appropriately 
| for permanently allocated 
|data sets. 




26 


|DSESERCH|DSE Search 
| (subroutine 


IGC2609I 


IGC25099 


IGC25099J Looks for the DDNAMEs spec- 
| if ied in the user * s param- 
eter list for the update 
| function- 




26 



□ 



L X X X X X X X J 
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Section 5: Data Areas 



This section describes the major data areas that DAIR and the SVC 99 
routines use, including: 

Attribute Control Block (ATRCB) 
Candidate Attribute List (CAL) 
Concatenation List (CATLST) 
Concatenation Table (CATTAB) 
DAIR Attribute Control Block (DAIRACB) 
DAIR Work Area (DAIRWA) 

DAIR Parameter Block, Code X^O' (DAPBOO) 
DAIR Parameter Block, Code X* 04 1 (DAPB04) 
DAIR Parameter Block, Code X'08" (DAPB08) 
DAIR Parameter Block, Code X'OC" (DAPBOO 
DAIR Parameter Block, Code X'10* (DAPB10) 
DAIR Parameter Block, Code X'14 f (DAPB14) 
DAIR Parameter Block, Code X'18 - (DAPB18) 
DAIR Parameter Block, Code X' lC f (DAPB1C) 
DAIR Parameter Block, Code X' 24" (DAPB24) 
DAIR Parameter Block, Code X f 28 f (DAPB28) 
DAIR Parameter Block, Code X f 2C f (DAPB2C) 
DAIR Parameter Block, Code X^O' (DAPB30) 
DAIR Parameter Block, Code X f 34 f (DAPB34) 
DAIR Parameter List (DAPL) 
Data Set Extension Block (DSE) 

Dynamic Allocation Parameter Block, Code X^O* 
Dynamic Allocation Parameter Block, Code X f 01' 
Dynamic Allocation Parameter Block, Code X f 02 f 
Dynamic Allocation Parameter Block, Code X , 03 f 
Dynamic Allocation Parameter Block, Code X'OU 1 
Dynamic Allocation Parameter Block, Code X f 06 f 
Dynamic Allocation Parameter Block, Code X^V 1 
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El 



Dynamic Allocation Work Table (DAWT) 

Dynamic Allocation Work Table, Variable Area (DAWTVARY) for CONVERT 

Dyanmic Allocation Work Table, Variable Area (DAWTVARY) for CONCAT 

Dynamic Allocation Work Table, Variable Area (DAWTVARY) for UNALLOC 

Dynamic Allocation Work Table, Variable Area (DAWTVARY) for UPDATE 

ENQUEUE/DEQUEUE Parameter List for Allocation/Termination resource 

ENQUEUE Work Area (EWA) for Enqueuing DSNAME 

Pattern Construction Area (PCA) 

SYS OUT Work Area (SWA) 

UCBLIST 

Unallocate Work Area 

The following information is included for each data area: 

• Size in bytes. 

• Name of the routine that creates it. 

• Name(s) of the routine (s) that use and/or update it. 

• Field names, displacements, size, and contents. 

• Cross-reference to method of operation diagrams and flowcharts. 
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ATTRIBUTE CONTROL BLOCK (ATRCB) 

Size: 61 bytes. 

Located in: Subpool 255. 

Created by: IGC30099 (SVC 99) 

Used by: IGC3 0099 

Updated by: None. 

Contents: DCB Parameters. 



r 1 

| Displacement 

|Dec. Hex. 


r 

Field 

,Name 


r 1 

Size in 

Bytes 


r 

Contents 


T 


L 


j 








j 


r 

|0 







ATRFORWD 




4 




I Address of next ATRCB. 


1 


|4 


4 


ATRBCKWD 


4 


Address of previous ATRCB. 




|8 


8 




4 


[Reserved. 




1 12 


C 


ATRNAME 


8 


i Attr-li st- name . 




| 20 


14 


ATRLNGH 


2 


Length of ATRCB. 




| 22 


16 


ATRMASK 


8 


INOUT/OUTIN Options of Open. 




| 22 


16 




7 


Reserved. 




| 29 


ID 


ATRLABEL 


1 


Specifies Open Type: 
INOUT. 
OUTIN. 




| 30 


IE 




3 


Reserved. 




| 33 


21 


ATREXPDT 


3 


Data set expiration date. 




| 36 


24 




2 


Reserved. 




I 38 


26 


ATRBUFNO 


1 


No. of buffers required. 




| 39 


27 | 


ATRBFTEK 
.11 

. a . -L • . • . 
.... ..X. 

. . « .. a . . JL 


1 


BFTEK, BFALN: 

Simple buffering "S" 

Automatic record 

area construction "A" 

Record buffering W R W 
i Exchange buffering "E" 

Doubleword 

boundary "D" 

Fullword boundary "F" 




|40 


28 


ATRBUFL 


2 


Buffer length. 




1-4-2 


2A 


ATREROPT 

JL • a • aaaa 

,.1... 

. . J- . .... 


1 


Error option; 

Accept the error record. 

Skip the error record. 
| Abnormal end of task. 





El 



(Continued) 
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Displacement 

Dec- Hex. 

| 

43 2B 



Field 
Name 

+ 

ATRKEYLE 



44 
50 



51 



52 
54 
56 

57 



2C 
32 



33 



34 
36 
38 

39 



ATRECFM 
1 . . . . 

11.. . 
1. . 
.1 . 



Size in 
Bytes 

+ 

1 

6 
1 



ATROPTCD 

J., a. ...a 
1. 

ATRBLKSI 
ATRLRECL 
ATRNCP 



2 
2 
1 



Contents 

Key length. 

Reserved. 

Record format: 

Fixed "F" 

Variable "V" 

Undefined "IT 

Track overflow "T" 

Blocked "B" 

Standard blocks "S" 
ASA printer chars. "A w 
Machine control 

character "M" 

Option code: 
Write validity 

check n W" 

Chained scheduling "C 

ANSI translate "O" 

User totaling "T" 

Maximum block size. 

Logical record length. 

Max # of READ/WRITE macros before 
CHECK. 

Reserved. 
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CANDIDATE ATTRIBUTE LIST (CAL) 
Size: 



Located in: 

Created by: 
Used by: 
Updated by : 
Contents: 



Variable — 4 bytes for each eligible UCB in 
the UCBLIST. 

DAWA2 (second half) following UCBLIST, provided 
that the number of entries does not exceed 28. 
Otherwise it is in a contiguous block — 
procured by GETMAIN. 

IGC14099 

IGC14099 

IGC14099 

A fullword entry for each eligible UCB in the 
UCBLIST; contains flags, and the use count and 
data path load for the UCB. 

r t 1 

| | Operation 

| Flowcharts | Diagram 
| JB | 21 

.. ,- J J. 



| Displacement 
|Dec. Hex. 

L 


| Field 
| Name 
x 


| Size in| 

| Bytes J Contents 

- 4- -L 


r 

10 

1 
1 
1 
1 
1 

1 





T 

| CALFLGS 


T 

1 1 




T 

| Flags 

|Bit Meaninq 

| On if this candidate is 

| elimanated. 

| 1-7 Reserved. 


1 

11 
l 


1 


| CALDPL 


1 2 




|Load on the data path for this UCB. 


1 

13 


3 


| CALUC 


1 1 




juse count for this UCB. 



H 



□ 
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CONCATENATION LIST (CATLST) 
Size: 



Located in: 
Created by: 
Used by: 
Contents : 



Variable — 4 bytes for each address in the 
list. 

Subpool 252. 

IGC18099 

IGC18099 

A list of identically formatted four-byte 
addresses of the TICT entries to be 
concatenated as illustrated below. 



H 



r t 1 

| | Operation 
I Flowcharts j Diagram 
I. + ) 

| EB-EC | 24 
_i ± 



[Displacement j Field | Size in| 
j Dec. Hex. j Name j Bytes j 



Contents 



-H 



|0 







j Address of a TIOT entry to be 
concatenated. 
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CONCATENATE TABLE (CATTAB) 



Size: 

Located in: 
Created by: 
Used By: 
Updated by: 
Contents : 



Variable — 12 bytes for each TIOT entry. 

Subpool 252. 

IGC18099. 

IGC19099, IGC20099. 

IGC19099. 

A table consisting of one entry for each entry 
of the TIOT, in the format shown below. 



r t 1 

| | Operation 

| Flowcharts | Diagram 

^ + ., 

I JD j 24 



_ _ ! 

Displacement 
Dec. Hex. 

j 


r 

Field 

Name 

L 


"-T T 

|Size in| 
| Bytes j Contents 
- 4. J- 








r 
OLDISP 


T 

1 ** 


T 

|Old address of the entry. 


4 


4 


NEWDISP 


1 ^ 


| New address of the entry. 


8 


8 


NEWPOS 


1 1 


|New relative number of the entry. 


9 


9 


ENTHND 


1 1 


I'Flag that indicates completed 
j processing of the entry. 


10 


A 


DCBUP 


1 1 


j Flag that indicates the potential 
(requirement for the updating of the 
|DCB. 


11 


B 


— 


1 1 


| Reserved. 



L X i. J. J 



□ 
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DAIR ATTRIBUTE CONTROL BLOCK (DAIRACB) 



Size: 

Located in: 
Created by: 

Used by: 
Updated by: 
Contents : 



47 bytes. 

Subpool 1 

The calling routine. 

IGC30099 (SVC99). 

None. 

DCB parameters to go into an ATRCB. 











r t 1 

| | Operation | 
| Flowcharts | Diagrams j 
1 + 1 


1 

Displacement 
Dec. Hex. 

j 


r 1 

Field 
Name 

L J 


r 1 

Size in 
Bytes 

L J 


1 1 27 1 
x ± ^ 

Contents j 
I J 








r 1 


r 1 
8 


r 1 
Reserved. | 


8 


8 


DAIMASK 


8 


INOUT/OUTIN options of Open. | 


8 


8 




6 


Reserved. j 


14 


E 


i DAILABEL 


1 


Specifies Open type: | 
INOUT. j 
OUTIN. j 


15 


F 




1 


Reserved | 


16 


10 




3 


Reserved. j 


19 


13 


DAIEXPDT 

DAIYEAR 

DAIDAY 


3 
1 
2 


Data set expiration date: | 
Year. | 
Day. | 


22 


16 




2 


Reserved. j 


24 


18 


| DAIBUFNO 


1 1 


No. of buffers required. | 


25 


19 


DAIBFTEK 
...J. .... 


1 


BFTEK/BFALN : | 
simple buffering n S M j 
Automatic record j 
area construction "A" j 
Record buffering "R" | 
Exchange buffering "E" | 
Doubleword | 
boundary M D" j 
Fullword boundary "F w | 


26 


1A 


| DAIBUFL 


2 


Buffer length. j 


28 


1C 


| DAIEROPT 
1... 


| 1 


Error option: j 
Accept. j 
Skip. j 

| Abnormal end of task. j 


29 


ID 


DAIKEYLE 


1 


(Key length. | 



J 



(Continued) 
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Displacement 
Dec- Hex, 



30 
36 



37 



38 
40 
42 

43 



IE 
24 



25 



26 
28 

2A 

2B 



Field 
Name 



T T 

Size in 
Bytes 



DAIRECFM 
1... 

.1.. 
11.. 

1. 

.1 

.. 1 



DAIOPTCD 

DAIBLKSI 
DAILRECL 
DAINCP 



6 
1 



2 
2 
1 



Contents 



Reserved . 

Record format: 
Fixed 
Variable 
Undefined 
Track overflow 
Blocked 

Standard blocks 
ASA printer chars. 
Machine control 
character 

Option code: 
Write validity 
check 

Chained scheduling 
ANSI translate 
User totaling 

Maximum block size. 

Logical record length. 



Max # of READ/WRITE macros before 
check. 

Reserved. 



H-pll 

"V" 

"D" 

nrpii 
n B n 

"S" 
"A" 



n W" 

limit 



□ 
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DAIR WORK AREA (DAIRWA) 

Size: 

Located in Subpool 1 

Constructed by: 

Updated by: 

Used by: 

Contents : 



104 bytes 

DAIR CTRL 

All DAIR Routines 

All DAIR Routines 

Addresses and control information for use of 
all DAIR routines. 



| Flowcharts | Operation) 
| | Diagrams 

^ + , 













| FA | 20 

„,L ,_, L 


Displacement 


i 
Field 


r 
Size in 






Dec. 


Hex. 

1 


Name 




Bytes 






Contents 





1 



DSEADDR 


1 1 




Address 


of first DSE block. 


4 


4 


SAVPTR 


4 


Address 


of register save area. 


8 


8 


TCBADD 


4 


Address 


of TCB. 


12 


C 


USERID 


8 


User id 


(from the PSCB). 


20 


14 


UNITDEF 


8 


Default 


unit name (from the PSCB). 


28 


1C 


PARMPTR 


4 


Address 


of DAIR Parameter List. 


32 


20 


RTCODE 


4 


Return code. 


36 


24 


RTCODE15 


4 


Return code. 


40 


28 


LIST99 


4 


Address 
List. 


of Alloc and DSE Parameter 


44 


2C | 


LIST99SZ 


4 


Size of 


Alloc and DSE Parameter List. 




30 J 


CATLIST 


4 


Address 


of Catalog List. 




34 j 


CATLSTSZ 


4 


Size of 


Catalog List. 


56 


38 j 


SEGSAVAR 


4 


Address 


of secondary save area. 


60 


3C 


SECSAVSZ 


4 


Size of 


secondary save area. 


64 


40 


DDNPTR 


4 


Address 


of needed DDNAME. 


68 


44 


DSNPTR 


4 


Address 


of needed DSNAME. 


72 


48 


MEMPTR 


4 


Address 


of needed member name. 


76 


4C 


BLKPTR 


4 


Address 


of next DSE block. 


80 


50 


DDNADDR 


4 


Address 


Of DSE block for DDNAME. 



\ 



L ± X X 



J 

(Continued) 
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I Displacement 
Dec. Hex. 



h 



Field 

Name 



Size in 
Bytes 



Contents 



— I 



84 
88 

| 92 

96 



97 



54 
58 

5C 

60 



DSNADDR 
NOTUADDR 

DYNMADDR 

STATUS 1 



61 



Address of DSE block for DSNAME. 

Address of DSE block for data set 
marked not in use. 

Address of DSE block for data set 
marked for dynamic allocation. 

Bit settings as follows: 

Bit Meaning when set 



Catalog search is required. 

Use DSE block to build parameter 

list. 

Stop at first occurrence of 

DSNAME in DSE. 

DSNAME found at least once. 

DSNAME is a member of a 

dynamically concatenated group. 

DSNAME is a member of a 

concatenated group. 

DSNAME appears more than once in 

DSE. 

Default status to OLD. 



STATUS2 | 1 | Bit settings as follows: 

Bit Meaning when set 

Key on DDNAME. 

1-3 Reserved(O). 

4-7 Used as follows: 

B 1 00 01' -control returned to 
DAIR08 from DAIR18. 

B' 0010 '-control returned to 
DAIR08 from DAIR10. 

B 1 00 11' -control returned to 
DAIR18 from DAIR10. 

B" 0100 ■ -control returned to 
DAIR1C from DAIR18. 

B" 0101" -control returned to 
DAIR1C from DAIR10. 

0110 -control returned to DAIR28. 

0111 -control returned to DAIR30 
from DAIR18. 

B* 1000' -control returned to 
DAIR30 from DAIR10. 
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I DEC. 



198 



T 

.acement | Field 


_ T 

(Size 


— T 

in| 




Hex . | Name 


| Bytes 




Contents 


_„ + 

62 | SWITCHES 


H- 

1 1 


— + 

|Bit 


settings as follows: 






|Bit 
|0 


Meaninq when set 

This is a CONVERT data set. 






|1 


A MOD as NEW data set. 






|2 
| 3-7 


A LOCATE was performed. 
Reserved (0). 


63 | 


1 1 


| Reserved (0). 


64 |CNCAADDR 


1 ^ 


| Address of concatenated data set 
| marked not in use in its DSE. 



99 
100 

L X J -L J 
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DAIR PARAMETER BLOCK, CODEX' 00' (DAPB00) 
Size: 20 bytes 

Located in Subpool 1 



Created by: 
Updated by: 
Used by: 
Contents : 



Calling program 

DAIR00, USER ID, SEARCH 

DAIR00, USERID, SEARCH 

Addresses and control information for DAIR00. 



Displacement 
Dec. Hex, 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
V + .} 

| FB J 20 
-J J. 



Contents 
Entry Code X f 0000 f . 




2 



Field 
Name 



DA00CD 
DA00FLG 



DA00DSE 



DA00TERM 



DA00PDSN 



DA00DDN 



Size in 
Bytes 



2 
2 



Flags set on return, as follows: 
Bit Meaning when set 



0-3 Reserved (0). 

4 DDNAME or DSNAME is permanently 
allocated. 

5 DDNAME is a DYNAM entry. 

6 DSNAME currently allocated (in 
DSE). 

7 DDNAME currently allocated to the 
terminal . 

8-15 Reserved(O). 

Address of DSNAME Buffer. 

The format of the DSNAME Buffer is as 
follows: 

Byte Contents 



0-1 The length, in bytes, of the 
DSNAME. 

2-45 The DSNAME, left justified, and 
padded to the right with blanks. 

DDNAME for the data set to be searched 
for. (If DSNAME is present, this 
field is ignored.) 



(Continued) 
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Displacement 
Dec. Hex. 



16 



10 



17 
19 



11 
13 



Field 
Name 



DA00CTL 



DAOOUID 



DA00DSO 



|Size 
| Bytes 


in| 

J. 


Contents 


T 

1 1 


T 
|Bit 


settings, as follows: 




iBit 


Meaninq when set 




|0-1 


Reserved( 0). 




|2 


Prefix user id to DSNAME. 




| 3-7 


Reserved(O). 


1 2 


JReserved(O) . 


1 1 


|Bit settings that indicate the 
| organization of the data set r as 
I follows . 




IBit 


Meaninq when set 




|0 


Indexed Sequential (IS). 




|1 


Physical Sequential (PS) . 




|2 


Direct Organization (DO). 




| 3-5 


Reserved (0) . 




|6 


Partitioned Organization (PO) . 




|7 


Unmoveable. 
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DAIR PARAMETER BLOCK, CODE X" 04' (DAPB04) 



Size: 

Located in Subpool 1 

Constructed by: 

Updated by: 

Used by: 

Contents : 



16 bytes 

Calling program 

DAIR04, USERID, SEARCH 

DAIR04, USERID, SEARCH 

Addresses and control information for DAIR04. 



r t 1 

| Flowcharts | Operat ion | 

| | Diagrams 

J- +- 



j. + H 







| FC | 20 


T 

Displacement! Field 
Dec. Hex. JName 
j. 


T 

|Size 
| Bytes 

-+ 

1 2 


T 

in| 

j Contents 
«. + 

j Entry Code X , 0004 f 


T 

|DA04CD 


2 2 |DA04FLG 




| Flags set on return as follows: 


|DA04DSE 




|Bit Meaninq when set 

| 0-4 Reserved (0). 

|5 DSNAME found in catalog. 

j 6 DSNAME currently allocated in 

| DSE. 

J7-15 Reserved(O). 


4 4 | 


1 2 


|Reserved(0) . 


6 6 |DA04CTRC 


1 2 


j Error return code for Catalog 
j Management routines. 


8 8 |DA04PDSN 


1 4 


| Address of DSNAME buffer. 

|The format of the DSNAME buffer is as 
| follows : 

|Byte Contents 

| 0-1 The length, in bytes r of the 

1 DSNAME. 

J2-45 The DSNAME, left justified, and 

| padded to the right with blanks. 


12 C |DA04CTL 


1 1 


|3it settings as follows: 


| DA04UID 




|Bit Meaninq when set 

| 0-1 Reserved(O). 

| 2 Prefix userid to DSNAME. 

j 3-7 Reserved (0). 


13 D | 


1 2 


| Reserved (0) . 



\ 



□ 



L J. X ± J 

(Continued) 
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Displacement! Field |Size m| 

Dec. Hex. (Name (Bytes j Contents 

+ + + . 

15 F |DA04DSO | 1 | Returned when DSNAME is currently 

| | | allocated in DSE Bit settings that 

| j j indicate the organization of the data 

| j | set, as follows: 

I I I Bit Meaning when set 

| | - | Indexed Sequential (IS). 

| | |1 Physical Sequential (PS). 

| | | 2 Direct Organization (DO). 

| j | 3-5 Reserved(O). 

I 6 Partitioned Organization (PO) . 



H 



17 
-j. — 



Unmoveable. 
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DAIR PARAMETER BLOCK, CODE X f 08' (DAPB08) 



Size: 

Located in Subpool 1 

Constructed By: 

Updated by: 

Us ed by : 

Contents : 



84 bytes 

Calling program 

DAIR08, USERID f SEARCH 

DAIR 08, USERID, SEARCH 

Addresses and control information for DAIR08. 



r t 1 

| Flowcharts | Operation 
| | Diagrams 

i. + ^ 

| FD-FG | 20 

J. -L ) 



r 

Displacement | Field 
Dec- Hex. j Name 


~T 

| Size 
| Bytes 


— T — 

in| 

| Contents 

4- 





T 

|DA08CD 


T 

1 2 


T 

| Entry Code X'008' 


2 


2 JDA08FLG 


1 2 


(Flags set on return, as follows: 

I Bit Meaning when set 

| Data set allocated but secondary 
| error occurred. Register 15 
| contains error return code. 

| 1-15 Reserved (0) 


4 


4 |DA08DARC 


1 2 


| Error return code from Dynamic 
| Allocation routines 


6 


6 |DA08CTRC 


1 2 


| Error return code from Catalog 
| Management routines 


8 


8 |DA08PDSN 


1 4 


| Address of DSNAME Buffer. The format 
| of the DSNAME Buffer is as follows: 

|Byte Contents 

| 0-1 The length, in bytes, of the 

I DSNAME. 

| 2-45 The DSNAME, left justified, and 
| padded to the right with blanks. 


12 


C |DA08DDN 


1 8 


JDDNAME for the data set, padded to the 
(right with blanks. If a specific 
(DDNAME is not required, this field 
jmust contain 8 blanks; the DDNAME to 
(which the data is allocated will be 
j placed in this field. 


20 


14 |DA08UNIT 


1 8 


|Unit Name desired. 



□ 



L X X X J 

(Continued) 
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Displacement | Field 
Dec. Hex. | Name 
j. 

28 1C JDA08SER 


Size in 
Bytes 

h 

8 


36 24 |DA08BLK 


4 


40 28 |DA08PQTY 


4 


44 2C |DA08SQTY 


4 


48 30 |DA08DQTY 


4 


52 34 (DA08MNM 


8 


60 3C |DA08PSWD 


8 


68 44 |DA08DSP1 


1 


|DA08SHR 
JDA08NEW 
|DA08MOD 
|DA08OLD 




69 45 |DA08DSP2 


1 1 




| Serial Number desired. Only the first 
6 bytes are significant. 

If the serial number is less than 6 
| bytes it must be padded to the right 
jwith blanks. If the serial number is 
J omitted , the entire field must contain 

blanks . 



j Block size requested, 
j record length desired. 



The average 



| Primary space quantity desired. The 
| high order byte must be zero, the low 
| order three bytes contain the space 
| quantity desired. If the quanity is 
| omitted , the entire field must be set 
| to zero. 

j Secondary space quantity desired. The 
| high order byte must be zero, the lew 
| order three bytes contain the space 
| quantity desired. If the quantity is 
| omitted, the entire field must be set 
| to zero. 

| Directory Quantity desired. The high 
| order byte must be zero, the low order 

three bytes contain the number of 
| Directory blocks desired. If the 
| quantity is omitted, the entire block 

field must be set to zero. 

j Member name of a partitioned data set. 

| If the name has less than 8 

| characters, it must be padded to the 

(right with blanks. If the name is 

| omitted, the entire field must contain 

(blanks. 

[Password for the data set. If the 
password has less than 8 characters, 

j it must be padded to the right with 
blanks. If the password is omitted, 

| the entire field must contain blanks. 

| Bit settings that indicate the status 
| of the data set, as follows: 



Bit 


Meaninq when set 


0-3 


Reserved (0) 


4 


SHR 


5 


NEW 


6 


MOD 


7 


OLD 



JBit settings that indicate the normal 
(disposition of the data set, as 
follows : 



(Continued) 
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I Displacement 
I Dec . Hex . 



|69 45 
( cont . ) 



170 



46 



171 



47 



| 72 
175 



48 
4B 



76 



4C 



Field 

Name 



DA08KEEP 
DA08 DEL 
DA08CAT 



DA08DSP3 



DA08KEP 
DA08DELE 
DA08CATL 
DA08UNCT 

DA08CTL 



DA08BLK 

DA08TRKS 

DA08CYLS 

DA08UID 

DA08RLSE 

DA08PERM 



DA08DMMY 
DA08ATRL 



DA08DSO 



DA08ALN 



Size in 
Bytes 



7 
3 
1 



Contents 



Bit Meaning when set 

0-3 Reserved (0) 

4 KEEP 

5 DELETE 

6 CATLG 

7 UNCATLG 

Bit settings that indicate the 
abnormal disposition of the data set, 
as follows : 

Bit Meaning when set 



0-3 Reserved (0) 



KEEP 
DELETE 
.CATLG 
UNCATLG 



Bit settings that control the 
operations to be performed by DAIR, as 
follows : 



Bit 
0-1 



Meaning when set 

Specifies the type of units 

desired for the space parameters, 

as follows: 

• 01*B units are in average block 

length 

f 10'B units are in TRKS 

•ll'B units are in CYLS 

Prefix userid to DSNAME 

RLSE is desired 

Data set is to be permanently 

allocated; not be unallocated 

until specifically requested, 

DUMMY data set is desired. 

Attribute list is supplied. 

Reserved (0) . 



Reserved (0) 

Bit settings on return that 
indicatethe organization of the data 
set, as follows: 



Bit 



1 

2 

3-5 

6 



Meaning when set 

Indexed Sequential (IS) 

Physical Sequential (PS) 

Direct Organization (DO) 

Reserved (0) 

Partitioned Organization (PO) 



Attribute list name- 



□ 
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DAIR PARAMETER BLOCK, CODE X ' OC • (DAPBOC) 
Size: 



Located in Subpool 1 
Constructed by: 
Updated by: 
Used by: 
Contents: 



Displacement 
Dec, Hex. 

I — 



2 2 



6 
8 

10 
12 



A 
C 



Field 
Name 



DAOCCD 

DAOCFLG 

DAOCDARC 



DAOCNUMB 



DAOCDDN 



Variable — 12 bytes as shown below, plus 8 
bytes for each DDNAME to be concatenated. 



Calling program 

DAI ROC 

DAIROC 

Addresses and control information for DAIROC 

r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + 1 

| FH | 20 



Size in 
Bytes 

+ 

2 

2 
2 



2 
2 

2 
8 



Contents 

Entry Code X'OC 

Reserved (0) 

Error return code from Dynamic 
Allocation 

Reserved (0) 

Number of data sets to be 
concatenated. 

Reserved (0) 

DDNAME of first data set to be 
concatenated 



DDNAME of last data set 
to be concatenated 
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DAIR PARAMETER BLOCK, CODE X'10' (DAPB10) 
Size: 16 bytes 

Located in subpool 1 



Constructed by: 
Updated by: 
Used by: 
Contents 



Calling program 

DAI RIO 

DAI RIO 

Addresses and control information for DAIR10. 



j Displacement! 
J Dec. Hex. 
j. 

|0 

I 

|2 2 

I s 

|4 4 



|6 
I 

I 

L 



Field 
Name 



DAIOCD 

DAIOFLG 

DAIODARC 

IDAIODDN 



"T T 

I Size in | 
, Bytes j 
r + 

j Entry code X'0010' 



r t 1 

| Flowcharts | Operation | 
| | Diagrams j 
I. + ^ 

| FJ | 20 | 
J. ± .j 



Contents 



j Reserved (0) 

I 

| Error return code from Dynamic 

| Allocation routines 

I 

| Reserved (0) 

I 

|DDNAME of data set to be 

| deconcatenated- 

~l 



— j 



□ 
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DAIR PARAMETER BLOCK, CODE X'14" (DAPB14) 
Size: 16 bytes 

Located in Subpool 1 



Created by: 
Updated by: 
Used by: 
Contents: 



Calling program 

DAIR14, USERID, IKJEHCIR 

DAIR14, USERID, IKJEHCIR 

Address and control information for DAIR14. 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
j. + 









| FK | 20 
i- -L 


r~ t 

| Displacement | Field 

|Dec. Hex. |Name 
L i 


T 

| Size 
| Bytes 


T 

in| 


Contents 


| | DA14CD 


T 

1 2 


T 

|Entr 


y Code X f 0014" 


|2 2 |DA14FLG 


1 2 


| Reserved (0) 


|4 4 |DA14DSN 


1 4 


| Address of the DSNAME Buffer. The 
| format of the DSNAME Buffer is as 
| follows: 






|Bit 
|0-1 


Contents 
The length, in bytes, of the 

DSNAME. 






| 2-45 


The DSNAME, left justified, and 
padded to the right with blanks. 


|8 8 |DA14PRET 


1 4 


| Address of the Return Area in which 
jare qualifiers for the DSNAME are 
j placed. The format of the Return Area 
jis as follows: 






| Byte 


Contents 




| 0-1 


The length, in bytes, of the 
Return Area. 






| 2-3 


Reserved (0) 






|4-11 


First Qualifier (or 0, if none) 






| 12-19 Second Qualifier (or # if none) 
| Etc. 


|12 C |DA14CTL 


1 1 


|Bit settings that control DAIR 
| operation, as follows: 


| |DA14UID 




|Bit 
| 0-1 
|2 
| 3-7 


Meaning when set 
Reserved (0) 
Prefix userid to DSNAME 
Reserved (0) 


|13 D | 

1 JL 


1 3 

_-L 


1 

-L 


Reserved (0) 
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DAIR PARAMETER BLOCK, CODE X'18' (DAPB18) 
Size: 40 bytes 

Located in Subpool 1 



Created by: 
Updated by: 
Used by: 
Contents: 



Calling program 

DAIR18, USERID, SEARCH 

DAIR18, USERID, SEARCH 

Address and control information for DAIR18. 









r _ T n 

| Flowcharts | Operat ion | 
| | Diagrams | 
|. + -| 

|FL,FM | 20 | 
^ -L J_ J 


r 

| Displacement 
|Dec. Hex. 

L 


r 
(Field 

Name 

L 


T 

| Size 
| Bytes 


T 1 

in | | 
I Contents j 


|0 


DA18CD 


T 

1 2 


| Entry Code X'OOIS' | 


|2 2 


DA18FLG 


1 2 


| Flags set on return, as follows: j 

I Bit Meaninq when set | 
| Data set freed but secondary | 
| error occurred — return code is j 
j in RTCODE of DAWT. j 
| 1-15 Reserved (0) j 


|4 4 


JDA18DARC 


1 2 


j Error return code from Dynamic j 
(Allocation routines. j 


|6 6 


DA18CTRC 


1 2 


| Error return code from Catalog j 
| Man a gement rout in e s . j 


|8 8 


JDA18PDSN 


1 4 


| Address of the DSNAME Buffer. The | 
| format of the DSNAME Buffer is as j 
j follows : j 

|Byte Contents j 




| 0-1 The length, in bytes, of the | 
| DSNAME. j 
| 2-45 The DSNAME, left justified, and | 
j padded to the right with blanks, j 


(12 , C 


DA18DDN 


1 8 


| DDNAME of the data set to be | 
(unallocated. j 


1 20 14 


DA18MNM 


1 8 


| Member Name of a partitioned data set- j 
j If the name has less than 8 j 
(characters, it must be padded to the | 
(right with blanks. If the password isj 
(omitted, the entire field must contain! 
j blanks . j 


|28 16 


DA18CLS 


1 2 


JSYSOUT class. An alphabetic or | 
(numeric character. If SYSOUT is not | 
(specified, this field must contain j 
j blanks. | 



El 



(Continued) 
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Displacement | Field 
Dec. Hex. | Name 
+ 

30 18 |DA18DSP2 


| Size 
| Bytes 

-+ 

1 1 


in| 

| Contents 
„ + 

|Bit settings that indicate the normal 
(disposition of the data set, as 
J follows : 






|Bit 
| 0-3 
|4 
| 5 
|6 
|7 


Meaninq when set 

Reserved (0) 

KEEP 

DELETE 

CATLG 

UNCATLG 


31 19 |DA18CTL 


1 1 


|Bit settings that control DAIR 
I operations r as follows : 






|Bit 
| 0-1 

|3 
| 4-7 


Meaninq when set 

Reserved (0). 

Prefix user id to DSNAME 

Free permanently allocated data 

sets. (Mark "not in use" if the 

bit is off.) 

Reserved (0) 


32 20 |DA18JBNM 


1 8 


|The jobname for enqueuing SYSOUT data 
|sets. If the jobname is omitted, the 
j jobname will be taken from the TIOT. 



L — L X -L 
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DAIR PARAMETER BLOCK, CODE X'lC (DAPB1C) 



Size: 

Located in Subpool 1 

Constructed by: 

Updated by: 

Used by: 

Cont ents : 



24 bytes 

Calling program 

DAIR1C, SEARCH 

DAIR1C, SEARCH 

Address and control information for DAIR1C 



r t 

Displacement 
Dec. Hex. 

| 




2 
4 

6 
7 



16 



10 



Field 

Name 



T T 

Size in 



DA1CCD 

DA1CFLG 

DA1CDARC 

DA1CCTL 



DA1CPERM 
DAI CAT RL 



DA1CDDN 



DA1CALN 



-+ 



Bytes 



2 
2 
2 

1 
1 



r t 1 

| Flowcharts | Operation 
| | Diagrams 

t + , 

| FN | 20 

_. x 4 



Contents 



Entry Code X'OOIC 

Reserved (0) 

Error return code from Dynamic 
Allocation routines 

Reserved (0) 

Bit settings, as follows: 
Bit Meaning when set : 
0-3 Reserved (0) 

4 Allocate permanently. 

5 Attribute list is supplied. 
6-7 Reserved (0) 

DDNAME for the data set to be 
allocated to the terminal 

Attribute list name. 



Q 
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LAIR PARAMETER BLOCK, CODE X f 24' (DAPB24) 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents : 



84 bytes 

Calling program 

DAIR24, DAIR08 f USERID r SEARCH 

DAIR24, DAIR08, USERID, SEARCH 

Addresses and control information for DAIR24. 



r t 1 

| Flowcharts | Operation 
| | Diagrams 

,. + , 

| FQ | 20 

r T j ± 1 



Displ 
Dec. 


acement| Field 
Hex . | Name 

4- J 


Size in 
Bytes 

L 


| Contents 

L 





T 1 
|DA24CD 


r 

2 


r 

[Entry Code X'0024' 


2 


2 |DA24FLG 


2 


Flags set on return as follows: 

Bit Meaninq when set 

| Data set allocated but secondary 
error occurred. Register 15 
contains the error return code. 
1-3 Reserved (0) 

4 DDNAME requested is allocated as 
| DUMMY. 
5-15 Reserved (0) 


4 


4 | DA24 DARC 


2 


Error return code from Dynamic 
| Allocation routines. 


6 


6 |DA24CTRC 


2 


j Error return code from Catalog 
Management routines. 


8 


8 |DA24PDSN 


4 


Address of DSNAME Buffer. The format 
of the DSNAME Buffer is as follows: 

Byte Contents 




0-1 The length, in bytes f of the 

DSNAME 
2-45 The DSNAME, left justified, and 

passed to the right with blanks. 


12 


C |DA24DDN 


8 


DDNAME of data set to be allocated. 
1 (Required) 


20 


14 |DA24UNIT 


8 


|Unit Name. If the unit name is less 
than 8 bytes, it is padded to the 
right with blanks. 



X X X 



(Continued) 
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I Displacement 
I Dec. Hex. 



28 



1C 



36 



140 



24 



28 



44 



2C 



148 



30 



52 



34 



160 



3C 



168 



44 



Field 
Name 



DA24SER 



DA24BLK 



DA24PQTY 



DA24SQTY 



DA24 DQTY 



DA24MNM 



DA24PSWD 



DA24DSP1 



DA24SHR 
DA24NEW 
DA24MOD 
DA240LD 



Size in 
Bytes 



8 



Contents 



Serial Number. Only the first 6 bytes 
are significant. If the serial number 
is less than 6 bytes, it must be 
padded to the right with blanks. If 
the serial number is omitted f the 
entire field must contain blanks. 

Block size requested. The average 
record length desired. 

Primary space quantity desired. The 
high order byte must be zero, the low 
order three bytes contains the space 
quantity desired. If the quantity is 
omitted, the entire field must be set 
to zero. 

Secondary space quantity desired. The 
high order byte must be zero, the low 
order three bytes contain the space 
quantity desired. If the quantity is 
omitted, the entire field must be set 
to zero. 

Directory Quantity desired. The high 
order byte must be zero, the low order 
three bytes contain the number of 
Directory blocks desired. If the 
quantity is omitted, the entire block 
field must be set to zero. 

Member name of a partitioned data set. 
If the name has less than 8 
characters, it must be padded to the 
right with blanks. If the name is 
omitted, the entire field must contain 
blanks . 

Password for the data set. If the 
password has less than 8 characters, 
it must be padded to the right with 
blanks. If the password is omitted, 
the entire field must contain blanks. 

Bit settings that indicate the status 
of the data set, as follows: 



Bit 


Meaninq when set 


0-3 


Reserved (0) 


4 


SHR 


5 


NEW 


6 


MOD 


7 


OLD 



E 



(Continued) 
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r 


T T 


— T 




| Displacement 


Field 


Size 


in| 




|Dec. 
L 


Hex. 


Name 

I 


| Bytes 
i 


L 


Contents 


$ 




r 


1 


— -j. 




| 69 


45 


DA24DSP2 


1 


|Bit 


settings that indicate the normal 










(disposition of the data set, as 










| follows: 










|Bit 


Meaninq when set 










| 0-3 


Reserved (0) 






DA24KEEP 




|44 


KEEP 






|DA24DEL 




|5 


DELETE 






|DA24CAT 




|6 


CATLG 






DA 2 4 UC AT 




|7 


UNCATLG 


| 70 


46 


DA24DSP3 




[Bit 


settings that indicate the 










| abnormal disposition of the data set. 










jas follows: 










|Bit 


Meaninq when set 










| 0-3 


Reserved (0) 






DA24KEP 




|4 


KEEP 






DA24DELE 




|5 


DELETE 






DA24CATL 




|6 


CATLG 






DA24UNCT 




|7 


UNCATLG 


|71 


47 


DA24CTL 


1 


|Bit 


settings that control the 










[operations to be performed by DAIR, as 










| follows: 










|Bit 


Meaninq when set 










|0-1 


Specific the type of units 
desired for the space parameters, 
as follows: 






DA24BLK 






•Ol'B units are in average block 
length 






DA24TRKS 






'10 'B units are in TRKS 






DA24CYLS 






■ll'B units are in CYLS 






DA24UID 




|2 


Prefix userid to DSNAME 






DA24RLSE 




|3 


RLSE is desired 






DA24PERM 




1** 


Data set is to be permanently 
allocated; not be unallocated 
until specifically requested. 






DA24DMMY 




|5 


DUMMY data set is desired. 






JDA24ATL 


7 


|6 


Attribute list supplied. 
Reserved (0) 


| 72 


48 




3 


| Reserved (0) 


| 75 


4B 


DA24DSO 


1 


|Bit 
|the 


settings on return that indicate 
organization of the data set, as 










| follows: 










|Bit 


Meaninq when set 










1 ° 


Indexed Sequential (IS) 










|1 


Physical Sequential (PS) 










|2 


Direct Organization (DO) 










| 3-5 


Reserved (0) 










I 6 


Partitioned Organization (PO) 










|7 


Unmoveable 


|76 


4C 


|DA24ALN 


1 8 


| Attribute list name. 



X X. J. J 



468 Terminal Monitor Program (Release 21.6) 



DAIR PARAMETER BLOCK, CODE X f 28 f (DAPB28) 
Size: 



Located in Subpool 1 
Created by: 
Updated by: 
Used by: 
Contents : 



Variable — 8 bytes as shown below, plus 4 
bytes for each operation to be performed. 



Calling program 

DAIR28 

DAIR28 

Addresses and control information for DAIR28. 





acement 

Hex. 

j 


r 

Field 

Name 

L 


~"T 

| Size 

| Bytes 
i 


r t 1 

| Flowcharts | Operation | 
| | Diagrams j 

» _ ..,„ i 


r 

| Displ< 

| Dec . 

i. 


| FR | 20 | 

— r j x ^ 

in| | 

; | Contents | 

i j 


|0 


1 



r 

|DA28CD 


T 

1 2 


T 1 
j Entry Code X'0028' j 


|2 


2 


JDA28NOP 


1 2 


| Number of operations to be performed j 


1** 


4 


|DA28PFOP 


1 4 


j Address of DAPB for first operation | 
jthat fails. (Zero if all operations | 
j are successful.) Register 15 contains | 
| error return code. | 


|8 


8 


DA280PTR 


1 4 


| Address of DAPB for first operation. j 






[DA280PTR 


1 4 


| Address of DAPB for last operation. | 



E 
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DAIR PARAMETER BLOCK, 

Size: 

Located in Subpool 1 

Constructed by: 

Updated by: 

Used by: 

Contents : 



CODE X f 2C' (DAPB2C) 
16 bytes 

Calling program 

DAIR2C 

DAIR2C 

Addresses and control information for DAIR2C. 



Displacement 
Dec. Hex. 



Field 
Name 



T T 

Size in 
Bytes 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
t. + j 

| FS | 20 
-L ± .| 



Contents 



-H 




2 



DA2CCD 
DA2CFLG 



DA2CTCB 



DA2CDDN 



2 
2 



Entry Code X , 002C 

Bit settings as follows: 

Setting Meaning 

X'02 f Mark all DSEs allocated by the 
ancestors of the current task, 
and by the initiator, as "not 
in use" . 

Mark the DSE for the specified 
DDNAME as "not in use". 
Mark all the DSEs that have a 
supplied TCB address as "not 
in use". 



X'Ol' 
X'OO" 



Address of the TCB for the routine 
whose data sets are to be marked "not 
in use" . 

DDNAME for DSE entry to be marked "not 
in use" 
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DAIR PARAMETER BLOCK, CODE X'30 f (DAPB30) 
Size: 72 bytes 

Located in Subpool 1 



Constructed by: 
Updated by: 
Used by: 
Contents : 



Calling program 

DAIR30 

DAIR30 

Addresses and control information for DAIR30. 



r t 1 

| Flowcharts | Operation 
| | Diagrams 



I 



FT 



20 



H 



Displacement 
Dec. Hex. 



12 



20 
28 




2 



6 
8 



14 
1C 



Field 
Name 



DA30CD 
DA30FLG 



DA30DARC 



DA30PDSN 



DA30DDN 



DA30UNIT 
DA30SER 



Size in 
Bytes 



2 

2 



Contents 



Entry Code X'OOSO 1 

Flags set on return, as follows: 

Bit Meaning when set 

Data set allocated by secondary 
error occurred. Register 15 
contains error return code. 

1-15 Reserved (0) 

Error return code from Dynamic 
Allocation routines 

Reserved (0) 

Address of DSNAME Buffer. The format 
of the DSNAME Buffer is as follows: 

Byte Contents 

0-1 The length, in bytes, of the 

DSNAME. 
2-45 The DSNAME, left justified, and 

padded to the right with blanks. 

DDNAME for the data set. If a 
specific DDNAME is not required, this 
field must contain 8 blanks; the 
DDNAME to which the data is allocated 
will be placed in this field. 

Unit Name desired. 

Serial Number desired. Only the first 

6 bytes are significant. 

If the serial number is less than 6 

bytes, it must be padded to the right 

with blanks. If the serial number is 

omitted, the entire field must contain 

blanks. 



El 



(Continued) 
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Displacement 
Dec. Hex. 



Field 
Name 



T- 

Size in 
Bytes 



Contents 



36 



40 



24 



28 



44 



2C 



48 



56 



30 



38 



60 



3C 



62 
63 



3E 
3F 



64 



40 



DA30BLK 



DA30PQTY 



DA30SQTY 



DA30PGNM 



DA30FORM 



DA30CLS 



DA30CTL 



1 

1 



DA30ABLK 

DA30TRKS 

DA30CYLS 

DA30UID 

DA30RLSE 

DA30PERM 



DA30DMMY 
DA30ATRL 



DA30ALN 
-L X 



Block size requested. The average 
record length desired. 

Primary space quantity desired. The 
high order byte must be zero, the low 
order three bytes contain the space 
quantity desired. If the quantity is 
omitted, the entire field must be set 
to zero. 

Secondary space quantity desired. The 
high order byte must be zero, the low 
order three bytes contain the space 
quantity desired. If the quantity is 
omitted, the entire field must be set 
to zero. 

Programname-The member name of a 
special user program to handle SYSOUT 
operations. This field must be blanks 
if this parameter is omitted. 

Form Number-indicates that the output 
should be printed or punched on a 
specific output form. It is a four 
character form number. This field 
must be blanks if this parameter is 
omitted . 

SYSOUT class - A single alphameric 
character (0-9, A-Z) . Note : The 
SUBMIT command processor passes the 
SUBMIT queue number rather than a 
SYSOUT class to have its data sets 
placed in the proper queue. 

Reserved (0) 

Bit settings that control the 
operations to be performed by DAIR, as 
follows : 



Bit 



0-1 



Meaning when set 

Specifies the type of units 

desired for the space parameters, 

as follows: 

•01' B units are in average block 

length 

•10 f B units are in TRKS 

•ll'B units are in CYLS 

Prefix userid to DSNAME 

RLSE is desired 

Data set is to be permanently 

allocated; not be unallocated 

until specifically requested. 

DUMMY data set is desired. 

Atribute list name supplied. 

Reserved. 



Atribute list name. 
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DAPB34 



DAIR PARAMETER LIST 



Size: 

Located in Subpool 1 

Constructed by: 

Used by: 

Contents: 
r 



Displacement 
Dec. Hex. 



7 
8 
16 




2 

6 



+- 



7 
8 
10 



Field 

Name 



DA34CD 

DA34FLG 
DA34FIND 



DA34DARC 

DA34CTRL 
DA34SRCH 
DA34CHN 
DA3UUNCH 



+- 



DA34NAME 
DA34ADDR 



20 bytes 

IKJEFATT; NAJXECK Validity Checking Routine 
DAIR3U 

Addresses £ control information for DAIR34. 

r t 

Size in 
Bytes 



2 
2 

2 
1 



1 

8 
4 



Contents 



Entry code X'0034" . 

Flags. 

Bit on, attr- list- name found. 

Bits 1-7 reserved. 

Return code from Dynamic Allocation. 

Function to perform: 

Bit on, search for name only. 
Bit 1 on, chain an ATRCB. 
Bit 2 on, unchain ATRCB. 
Bits 3-7 reserved. 

Reserved. 

Attr- list-name. 

Address of DAIRACB. 



□ 
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DATA SET EXTENSION BLOCK (DSE) 



Size: 

Location in Subpool 

Created by: 

Updated by: 

Used by: 

Contents : 



Variable 

225 

MVT Job Management 

MVT Dynamic Allocation routines — SVC 99 

SEARCH 

Information about data sets including DDNAMEs 
and DSNAMEs. 



| Displacement! 

| Dec . Hex . | 


Field 
Name 


|0 





DSEFORWD 


I 1 * 


** 1 


DSEBCKWD 


|8 


8 


DSEBLKSZ 


|10 


A 


DSESTAT 


|11 


B 


DSECNTRL 

i DSEDYN 
| DSENUSED 
DSEMEM 

|DSEDTIOT 
|DSECON 

| DSEPERM 



T T 

Size in 

Bytes 

4 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
± + , 

| FV-FZ | 20 
.J - ± 



2 
1 



Contents 

(0 in the last 



(0 in the first 



Address of next DSE. 
DSE.) 

Address of last DSE. 
DSE.) 

Length in bytes of DSE 



Allocated status of the data set, as 
follows: 



Bit Meaning when on 



0-3 Reserved 

4 DSE SHR 

5 DSE NEW 

6 DSE MOD 

7 DSE OLD 

Bit settings that indicate the status 
of the data set, as follows: 

Bit Meaning when set 

Data set allocated dynamically 

1 Data set not in use 

2 The DSEMEMBER field is present in 
this DSE 

3 TIOT entry is DYNAM 

4 Data set was concatenated 
dynamically 

5 Reserved (0) use 

6 Data set is permanently allocated 

7 Reserved (0) 



(Continued) 
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r~ t 

| Displacement | Field 

|Dec. Hex. [Name 

i j 


~T 

| Size 
| Bytes 
_j 


T 

in| 

l 


1 

Contents j 
J 


J t 

|12 C |DSEDDNAM 


1 


j 

|8 


T 

DDNAME as found in TIOT | 


1 20 14 JDSETCBAD 
| 24 18 |DSETTRPW 


I 4 


1 4 Address of the TCB for the | 
| routine which requested dynamic j 
j allocation . j 
jThe relative TTR of the password for j 
jthis password protected data set | 
j within the password data set (0 if j 
(data set is not password protected or i 
(unit password TS entered from the f 
(terminal) . | 


128 1C |DSENDISP 


I 1 


| Bit settings that indicate the normal | 
(disposition of the data set, as | 
j follows : J 






|Bit 
| 0-3 


Meaninq when set [ 
Reserved (0) | 


| | DSEKEP 




|4 


KEEP | 


| |DSEDEL 




|5 


DELETE | 


| |DSECAT 




|6 


CATLG | 


| |DSEUCAT 




|7 


UNCATLG | 


1 29 ID [DSEADISP 


1 1 


| Bit settings that indicate the | 
J abnormal disposition of the data set, | 
| as follows : j 






|Bit 
(0-3 

|4 

|5 
I 6 
|7 


Meaninq when set | 
Reserved (0) | 
KEEP | 
DELETE | 
CATLG | 
UNCATLG | 


1 30 IE |DSEDSORG 


1 1 


| Bit settings that indicate the | 
j organization of the data set, as | 
I follows : | 


| | DSEIS 




|Bit 
|0 


Meaninq when set | 
Indexed Sequential (IS) | 


| |DSEPS 




|1 


Physical Sequential (PS) | 


| |DSEDO 




1 2 


Direct Organization (DO) | 






| 3-5 


Reserved (0) | 


| |DSEPO 




|6 


Partitioned Organization (PO) | 


| |DSEU 




|7 


Unmoveable | 



E 
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Displa 
Dec. 


"I 
Lcement | Field 

Hex . | Name 
+ 

IF |DSEDSLNG 


~T 

| Size 
1 Byte 

-+ 

1 1 


in| 
s | Contents 
+ _ 

| Length in bytes of the DSNAME 


31 


32 


20 


|DS EDS NAM 


1 1- 


44 | DSNAME for the data set 






(DSEMEMBR 


1 8 


|The name of a member of a Partitioned 
JData Set. (This field is present only 
| for Partitioned Data Sets and only 
j when the DSEMEM bit is set in 
JDSECNTRL.) 



L 1 X X X 



DA1R PARAMETER LIST (DAPL) 



Size: 

Located in Subpool 1 

Created by: 

Updated by: 

Used by: 

Contents: 



20 bytes 

Calling program 

None 

IKJEFD00 

Parameter List for DAIR — IKJEFD00. 



r T 1 

| Flowcharts | Operation 
| | Diagrams 
j. + ., 

| FA | 20 

-J x 



| Displacement | Field 
JDec. Hex. JName 
i. x 


|Size in| 

j Bytes j Contents 

X X 


r 

1 





T 

| DAPLUPT 


T T 

| 4 | Address of User Profile Table (UPT) 


1 

1 

1 


4 


| DAPLECT 


I 4 | Address of Environment Control Table 
| j (ECT) 


1 

1 
■ 


8 


| DAPLECB 


| 4 | Address of calling program's Event 
1 | Control Block (ECB) 


1 
|12 

1 

1 


C 


| DAPLPSCB 


j 4 | Address of Protected Step Control 
| | Block (PSCB) 


1 

|16 

L 


10 


| DAPLDAPB 

.X 


| 4 | Address of DAIR Parameter Block. 

-J X 



H 
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DYNAMIC ALLOCATION PARAMETER BLOCK, FUNCTION CODE X'OO' (DSE UPDATE 
PARAMETER LIST) 



Size: 

Created by: 
Updated by: 
Used by: 
Contents: 



64 bytes 

IKJEFDOO — DAIR08, DAIR24, DAIR2C, DAIR30 

SVC 99 DSE Update routines 

SVC 99 DSE Update routines 

Addresses and control information for the DSE 
UPDATE function 

r t 1 

| | Operation 

| Flowcharts | Diagrams 
V + j 

|FM,FS,JA, | 

| JG | 20,26 

I ± 



Displacement 
Dec . He x . 

I 





16 

19 

20 



2 
3 



10 
13 

14 



Field 

Name 



T T 

Size in 

bytes 



CODE 
OBTDSORG 

FCODE 
OPTION 



CONTROL 



TCBADD 



PASSWORD 

PSWRDTTR 

DSLNGTH 
DSNAME 



1 
1 

1 
1 



1 

44 



Contents 



X'80 1 

DSORG code returned from OBTAIN macro 
instruction. 

Function Code X'00' 

Options. Bit settings, as follows: 
Bit Meaning when set 
0-5 Reserved (0) 

6 Mark DSE entries "not in use" 
except those created for the 
current task and its originating 
tasks. 

7 Mark a DSE entry "not in use". 
The address of the DSE entry is 
placed at offset 5 in this block. 

Bit settings, as follows: 

Bit Meaning when set 

0-4 Reserved (0) 

5 Data set is permanently allocated 

6-7 Reserved (0) 

Address of the TCB for the task for 
which the data set was allocated, or 
(if bit 7 in the options field is on) 
the address of the DSE entry to be 
marked "not in use". 

The 8-byte password (if used), left 
justified, padded to the right with 
bl anks ; ot herw is e z er o s . 

The relative track address (TTR) of 
the password in the password data set. 

The length of the DSNAME. 

DSNAME for the data set, left justi- 
fied, padded to the right with blanks. 



El 
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DYNAMIC ALLOCATION PARAMETER BLOCK, FUNCTION CODE X^l* 



Size 

Created by: 
Updated by: 
Used by: 
Contents: 



Variable 

IKJEFDOO — DAIR08, DAIR1C, DAIR3 

IGC26099 

SVC 99 DATASET and DSE UPDATE routines 

Addresses and control information for the 
DATASET function of Dynamic Allocation 



| j Operation 
| Flowcharts j Diagrams 
l_ + 

|FG,FN,FT, | 

| JA,JB | 20,21 



r t 

Displacement! Field 
Dec. Hex. Name 



T T 

Size in 
Bytes 



\ 



Contents 



12 
13 

21 

22 





2 

3 



C 
D 

15 
16 



PLNGH 

PCODE 
POPTIONS 



PDDNM1 



PDDNM2 



PDISP1 



1 
1 



1 
8 

1 
1 



Size, in bytes, of the parameter 
block. 

Function Code X'01* 

Bit settings as follows: 

Bit Meaning when set 

DUMMY data set. No device is to 
be allocated. I/O operations are 
to be bypassed. 

1 Uncatalog the data set if 
disposition is delete. 

2 TERM=TS data set. Special 
BSAM/QSAM interface is to be set 
up so that terminal can be used 
as I/O device. 

3 DSNAME points to data set name. 
4-7 Reserved (0) 

Current DDNAME for an unallocated, 
unopened data set. 

Reserved (0) 

New DDNAME for the data set. It may 
not be the DDNAME associated with any 
TIOT entries. 

Reserved (0) 

Bit settings that indicate the type of 
data set, as follows: 

Bit Meaning when set 

0-3 Reserved (0) 

4 SHR 

5 NEW 

6 MOD 

7 OLD 
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1 

Displacement! Field 
Dec . Hex . | Name 


r 

Size 
Bytes 

L 


T T 

in| | 
| Contencs | 

_L J 


22 


T 1 

17 |PDISP2 


r 

1 1 


T 1 
|Bit settings that indicate the normal | 
(disposition of the data set, as | 
1 follows : | 

I Bit Meaninq when set | 
1 0-3 Reserved (0) | 
I 4 KEEP | 

1 5 DELETE | 

1 6 CATLG | 
| 7 UNCATLG | 


24 


18 |PDISP3 


1 


|Bit settings that indicate the | 
| abnormal disposition of the data set, | 
| as follows : j 

|Bit Meaninq when set | 
1 0-3 Reserved (0) | 
1 4 KEEP | 
| 5 DELETE | 
1 6 CATLG j 
| 7 UNCATLG | 


25 


|PMNM 


8 


| Member Name-the name of a member of a j 
[partitioned data set (PDS) . If less j 
jthan 8 characters, it must be padded | 
j on the right with blanks. If omitted, | 
jthe entire field must be blank- | 


33 


| PPRIME 


3 


j Primary Space Quantity- indicates how | 
jmany of the units should be assigned j 
jto the data set initially (the units j 
jare indicated in the CTB field). j 
(Field must be zeros if parameter j 
| omitted. | 


36 


| PDSNP 


4 


(Address of the DSNAME Buffer, as j 
| follows : | 

|Byte Contents | 




|0 The length, in bytes, of the | 
j DSNAME. | 
j 1-44 DSNAME, left justified, padded to| 
| the right with blanks. j 


40 


28 |PUNM 


8 


| Unit name -specifies information about j 
(the unit the data set will use. If j 
j omitted this field must be blanks. If | 
j it is blank, the system will default | 
]to the use of all the direct-access j 
| devices. It may be one of the | 
(following: j 

|1. address of the specific unit. j 
j 2. Type (module number) of unit. | 
|3. Name of a group of units-this namej 
| and the group it belongs to are | 
j defined during System Generation, j 



B 
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"T T 

, Size in 
| Bytes 



Displacement 
Dec. Hex. 



Field 
Name 



Contents 



—\ 



48 



30 



PTCTB 



49 



31 



PSEC 



52 



34 



PCLASS 



53 



35 



PDIREC 



56 



38 



PFORM 



60 



68 



3C 



44 



PPGMNM 



PBLKSIZ 



70 



46 



CTB. Bit settings that control 
operations performed by Dynamic 
Allocation, as follows: 



Bit Meaning when set 

0-1 Specifies the units used for the 

space parameters, as follows: 

■ 01 f B- units are average blank 

length 

' 10 _I B- units are TRKS 

•ll'B-units are CYLS 

2 Reserved (0) 

3 RLSE is desired. 
4-7 Reserved (0) 

Secondary Space Quantity- Indicates how 
many of the units should be assigned 
to the data set when the data set 
exhausts its space. The field must be 
zero if the parameter is omitted. 

Output Class-specifies an output class 
into which the data set should be 
placed. It may be an alphabetic 
character from A to Z or a numeric 
from to 9. Regardless of the output 
class specified here, the SYSOUT data 
set will be placed on the queue for 
the message class. If SYSOUT is not 
specified, this field must contain 
blanks . 

Directory Space Quantity-Indicates the 
size of a directory of a data set with 
partitioned organization (a BPAM data 
set) . This field must be zero if the 
parameter is omitted. 

Form Number- indicates that the output 
should be printed or punched on a 
specific output form. It is a four 
digit form number. This field must be 
blanks if this parameter is omitted. 

Programname-The member name of a 
special user program to handle SYSOUT 
operations. This field must be blanks 
if this parameter is omitted. 

BLKSIZE- Average block length 
parameter. If specified it must be 
less than 65,536 bytes. This field 
must be zero if the parameter is 
omitted. 

Reserved (0) 
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T T" 

Size in| 
Bytes j 



(Displacement j Field 

| Dec, Hex, | Name 
| + 

1 72 4 8 |PSERNO 



Contents 



H 



178 



4E 



| Serial Number-The serial number of the 

(volume for this data set. If 

j specif ied, the request is for a 

| specif ic volume. Field must be blanks 

j if parameter is omitted. 

I 

| Reserved (0) 

-X ; 



□ 
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DYNAMIC ALLOCATION PARAMETER BLOCK , FUNCTION CODE X f 02 f 

Size: 24 bytes 

Created by: IKJEFDOO — DAIR18 

Used by: UNALLOC and DSE UPDATE routines 

Contents: Addresses and control information for the 

UNALLOC function of MVT Dynamic Allocation. 



t T 

Size 



| j Operation 
| Flowcharts | Diagrams 
t + < 

| FM,FN,JA, | 
| JC | 20,22 
-± J. 



H 



Dis placement j F iel d 
Dec. Hex. |Name 





2 
3 



12 
13 



C 
D 



14 



15 



Bytes 

f 

2 



1 

1 



Contents 



•X0018' the size in bytes, of the 
parameter block. 

X'02' Function Code 

Options. Bit settings, as follows: 
Bit Meaning when set 

Data set is allocated to more 
than one user. Dynamic 
Allocation will not remove from 
the Data Set ENQ Table and will 
not dequeue the data set. 

1 DAIR could not catalog the data 
set. Dynamic Allocation will not 
uncatalog the data set. 

DDNAME associated with a currently 
allocated, closed TIOT entry. 

Reserved 

Bit settings that indicate the normal 
disposition for the data set, as 
follows : 

Bit Meaning when set 

0-3 Reserved (0) 

4 KEEP 

5 DELETE 

6 CATLG 

7 UNCATLG 

SYSOUT class- A single alphameric 
character (0-9) , (A-Z) . ( Note : The 
SUBMIT command processor passes the 
SUBMIT queue number rather than a 
SYSOUT class to have its data sets 
placed in the proper queue.) 

Reserved (0) 
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f 



Displacement! Field 
Dec. Hex. | Name 
+ „_ 



T T" 

Size in | 
Bytes | 
+- 



Contents 



-H 



16 



10. 



I 
I 



8 (An 8 byte field that contains the 
| jobname used to enqueue the SYSOUT 
j data set. If the jobname is omitted, 
| the field must contain blanks; the 
j jobname from the TIOT will be used to 
j enqueue the SYSOUT data set. 

x 



DYNAMIC ALLOCATION PARAMETER BLOCK, FUNCTION CQDE X°03° 

Si ze : Var i abl e 

Created by: IKJEFD00 — DAIROC 

Used by: CON CAT and DSE UPDATE routines 

Contents: Addresses and control information for the 

CON CAT function of MVT Dynamic Allocation. 



r t 1 

| | Operation 
| Flowcharts j Diagrams 
j. + ., 

|FH r JA r JD | 20,24 
.j : x 



Displacement 
Dec. Hex. 





2 2 

3 3 

4 4 



12 
13 



13+ 9n 



C 
D 



Field 
Name 



Size in 
Bytes 



-4 



l 

l 

8 

1 

8 



Contents 



Length=4+9n, where n is the number of 
ddnames to be concatenated. 

X^* Function Code 

Reserved (0) 

DDNAME for the first allocated, 
unopened TIOT entry to be 
concatenated. 

Reserved (0) 

DDNAME for the second allocated, 
unopened TIOT entry to be 
concatenated. 



Reserved (0) 



| X X X 

Note : At least two ddnames must be specified; a maximum of 255 



DDNAMES may be specified. 



El 
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DYNAMIC ALLOCATION PARAMETER BLOCK, FUNCTION CODE X'OU" 



Size: 

Created by; 
Used by: 
Contents: 



13 bytes 

IKJEFDOO — DAIR08, DAIR10, DIARlC f DAIR30 

DECONCAT and DSE UPDATE routines 

Addresses and control information for the 
DECONCAT function of MVT Dynamic Allocation - 



j Displacement 
Dec, Hex. 



|3 

I 

I 
I 
112 



2 

3 
4 



Field 

Name 



Size inj 
Bytes | 

+ 



| Flowcharts | Operation 
| | Diagrams 

| FJ,JA,JE | 20 f 25 

.j x 



Contents 



2 JX'OOOD' . The size, in bytes, of the 
| parameter block. 

I 
1 | Function Code X f 04 f . 

I 
1 | Reserved (0) . 

I 
8 (DDNAME for a group of data sets that 

j have been concatenated. 

I 
1 |Reserved(0) . 

- -L 
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DYNAMIC ALLOCATION PARAMETER BLOCK, FUNCTION CODE X f 06' 



Si ze : 

Created by: 
Used by: 
Contents: 



40 bytes 

IKJEFD00 -- DAIR08, DAIRlC f DAIR24, DAIR30 

CONVERT and DSE UPDATE routines 

Address and control information for the CONVERT 
function of MVT Dynamic Allocation. 



Displacement 

Dec . Hex . 

| 



Field 
Name 



T T 

Size in 
Bytes 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + j 

|FF,FQ,FT, | 
| JA # JF | 20,23 
.J X 



Contents 



12 
13 
21 
22 



C 
D 

15 
16 



1 
1 



1 
8 
1 
1 



X f 0028 f .. The size r in bytes, of the 
parameter block. 

Function Code X'Oe'. 

Options. Bit settings, as follows: 

Bit Meaning when set 

Reserved (0) 

1 Read JFCB for DSE UPDATE; The DSE 
DSORG field is zero. 

2 Change data set disposition. 

3 Change data set status. 

4 Change member name. 

5 Zero the DCB-oriented fields in 
the JFCB. Change blocksize. 

6 Change status from SHR to 
exclusive. (Possible only if the 
current ENQ environment will 
allow the use attribute to be 
changed from shared to 
exclusive. ) 

7 Change DDNAME1 to DDNAME2. 

Current DDNAME. DDNAME associated 
with the currently unopened data set. 

Reserved (0). 

New DDNAME (DDNAME2) . 

Reserved. 

Status. Byte settings, as follows: 

Byte Meaning when set 

X f 00 'omitted 

X'Ol'OLD 

X , 02 i MOD 

X'03 f NEW 

X B 08 8 SHR 
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r~ t 

| Displacement | Field 

|Dec. Hex. | Name 

L _ J. 


T T - ~ - 1 

|Size in| | 
| Bytes | Contents j 

-L -L J 


S~ i 


t 




|23 17 | 


- 1 !■ ' 


|Bit settings that indicate the normal j 
(disposition of the data set, as | 
j follows : | 

|Bit Meaning when set j 
| 0-3 Reserved(O) | 
j 4 KEEP j 
j 5 DELETE | 
| 6 CATLG | 
| 7 UNCATLG | 


j 24 19 | 


- 1 1 


J Bit settings that indicate the | 
| abnormal disposition of the data set, | 
j as follows : | 

|Bit Meaninq when set I 
| 0-3 Reserved(O) | 
|4 KEEP | 
j 5 DELETE j 
J 6 CATLG | 
|7 UNCATLG | 


| 25 19 |«. 


" 1 8 


| Member name. The name of a member of a| 
| partitioned data set (PDS) . If less j 
jthan 8 characters it must be padded onj 
(the right with blanks. If omitted, j 
j the entire field must be blank. | 


|33 21 | 


- 1 3 


| Average record length. If bit 5 in j 
jthe options field is set, this field | 
jwill be used to fill in the average j 
| record length and blocksize fields in | 
|the JFC3. | 


| 36 24 | 


- 1 4 


| Address of the DSNAME Buffer. | 



-L 
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DYNAMIC ALLOCATION PARAMETER BLOCK, FUNCTION CODE X ' 07 ' 

Size: 16 bytes. 

Created by: IKJDAIR. 

Used by: IGC30099 (Dynamic Allocation, SVC99) . 

Contents: Address and control information for the ATTRIB 

function of MVT Dynamic Allocation. 



H 



1 

| Displ 

|Dec. 
t 

|0 


r 

acement) Field 

Hex. jName 
+ 

|SIZE 


— T 

| Size 

| Bytes 
-_+_ 

1 2 


l " ■ "■ - -- -' " " 

in| 

J Contents 
_| 

|Size of parameter block 


|2 


2 


|CODE 


1 1 


| Function code-X f 07' 


|3 


3 


| OPTION 
| UNCHAIN 
| CHAIN 


1 1 


(Function to perform 

|Bit 0=1 Unchain ATRCB 

| 1=1 Chain attr. list 


|4 


4 


| ATRPTR 


1 *» 


|Addr of DAIRACB for chain function or 
| ATRCB for unchain 


|8 


8 


|ATRNME 


1 8 


|Attr-list name per chain function 



B 
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DYNAMIC ALLOCATION WORK 
Size: 

Located ins 
Created by: 
Used by: 
Updated by: 
Contents: 



TABLE (DAWT) 

552 bytes. 

Subpool 252. 

IGC00099. 

All functions. 

All functions . 

Formatted information, as shown below, plus the 
first, second, and variable work areas (DAWA1, 
DAWA2, and DAWTVARY, respectively). Note that 
the field format in DAWTVARY is different for 
each functional grouping of routines; these 
various configurations of DAWTVARY appear on 
the following pages. 



r t 1 

| (Operation 

| Flowcharts j Diagram 



t- 



JA-JG 



21-26 



H 





Displacement 
Dec . Hex . 


r 

Field 

Name 


r 1 

Size in 

Bytes 




Contents 










XCTLAD 




4 




Address of entry point name for XCTL. 


4 


4 


XCTLDCB 


4 


DCB address for XCTL. 


8 


8 


XCTLEP 


8 


Entry point name for XCTL. 


16 


10 


PPARMP 


4 


Address of SVC parameter list. 


20 


14 


|LNGH 


2 


Size of DAWT. 


22 


16 


— 


1 


Reserved. 


23 


17 


TIOTNO 


1 


TIOT number. 


24 


18 


|TIOTP 


4 


TIOT entry address. 


28 


1C 


jRTCODE 


4 


Return code. 


32 


20 


| DAWTQMPA 


36 


QMPA. 


68 


44 


| DAWT EI OB 


84 


ECB/IOB for use by the transient queue 
manager . 


136 


88 


DAWA1 


176 


First work area. 


312 


138 


DAWA2 


176 


Second work area. 


488 


IE 8 


DAWAVARY 


| 48 


[Variable work area. 



L X JL X J 
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DYNAMIC ALLOCATION WORK TABLE, VARIABLE AREA (DAWTVARY) AS USED IN THE 
ATTRIBUTE CONVERSION FUNCTION 



Size: 

Located in: 
Created by: 
Used by: 
Updated by: 
Contents : 



48 bytes. 

DAWT — (Subpool 252) 

IGC00099 

IGC16099, IGC17099 

IGC16099, IGC17099 

Work area for the CONVERT function. 



Contents 

DAWA1P | 4 | Address of DAWT work area 1 (DA WAD . 

TTR of the DAWA1 record. 

Address of DAWT work area 2 (DAWA2) . 

TTR of the DAWA2 record. 

Address of the second DDNAME TIOT 
entry. 

TTR of the first DDNAME SIOT. 

TTR of the second DDNAME SIOT. 



Field 
Name 




h 



24 
27 
28 
36 
44 



TTRSI0T1 
TTRSI0T1 




r t 1 

| | Operation 

| Flowcharts | Diagram 

| JF | 23 
_j_ x 4 



NOTE: The following optional use of this word of storage takes effect 
if Bit 6 of VFLAGS is on to indicate the need for a second 
SIOTTR record. 



H 



18 
IB 
1C 
24 
2C 



TTRSTTR2 


3 


NUMTTR2 


1 


— 


i 8 


SYSDSN 


8 


VFLAGS 


i 1 



TTR of SIOTTTR record. 

Number of the TTR for DDNAME2 SIOT. 

Initiator enqueue parameter list. 

Enqueue major name. 

Bit settings, as follows: 

Bit Meaning when On 



\ 




1 
2 
3 

4 

5 
6 
7 
J. 



Reserved 

SIOT must be read. 

Reserved. 

JFCB must be read. 

JFCB read only for 

DSE UPDATE. 

Reserved. 

SIOTTTR must be read. 

Reserved. 



Q 
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r t 

| Displacement! Field 

|Dec. Hex. (Name 

L JL 


— T 

| Size 
j Bytes 

- i. 


T ' 

in| 

| Contents 


r 

i 




T 
1 


T 


T 

i 


|45 
I 


2D 


1 

1 — 

I 


| 1 


1 

| Reserved. 


|46 

1 


2E 


1 

|TI0T2N0 

1 
1 


1 1 


1 

| Relative number of the second DDNAME 

|TIOT entry. 

i 


| 47 

L 


2F 


1 
l~ 


1 1 
— j- 


1 

| Reserved. 

-L 



H 



DYNAMIC ALLOCATION WORK 
CONCATENATION FUNCTION 

Size: 

Located in: 

Created by: 

Used by: 

Updated by: 

Contents : 



| Displacement | 
|Dec. Hex.j 
,. + 

1° o 1 


|4 


4 1 


|8 


8 1 


|12 


C | 


1 16 


10 |1 


1 20 


14 |: 


|24 


18 |. 


| 28 


1C | 


| 32 


20 | 


| 36 


24 | 


| 40 


28 | 


|44 


2C | 



TABLE, VARIABLE AREA (DAWTYARY) AS USED IN THE 

48 bytes 

DAWT. 

IGC00099 

IGC18099, IGC19099 r IGC20099 

IGC18099, IGC19099 

Work area for the CANCAT function. 



r t 1 

| | Operation 

| Flowcharts | Diagram 
V + 

| JD j 24 

-J JL 



Field 
Name 



Size in 
Bytes 



-H 



Contents 



TEXTP 

N 

STTRP 

TLNGH 

NTIOT 

PCAT 

PP3 

J 

Q 

PPTR 

OPENNUMB 



Address of the TIOT extension. 

Number of TIOT entries. 

Address of subject SIOTTTR record. 

Length of TIOT. 

Address of new TIOT. 

Address of concatenate table (CATTAB) 

Temporary pointer. 

Index variable. 

Queue manager parameters. 

Temporary pointer. 

Number of open data sets. 

Reserved. 
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DYNAMIC ALLOCATION WORK 
FREEING FUNCTION 

Size: 

Located in: 

Created by: 

Used by: 

Updated by: 

Contents: 



TABLE, VARIABLE AREA (DAWTVARY) AS USED IN THE 

48 bytes. 

DAWT — (Subpool 252) 

IGC00099 

IGC01099, IGC02099, IGC03099, IGC04099, 
IGC05099, IGC06099, IGC21099. 

IGC01099, IGC02099, IGC03099, IGC04099, 
IGC05099, IGC06099, IGC21099 . 

Work area for the UNALLOC function. 



















r t 1 

| | Operation | 
| Flowcharts | Diagram | 
Ir + j 

| JC | 22 | 

. , L. .._.!„.. I 


1 

|Displa 


cement 


Field 


— T 
| Size 


1 

in| 








|Dec. 
|0 


Hex. 


[Name 
TEXTP 


— h 


Byte 


2S | 

| Address 






Contents | 





4 


of 


the 


TIOT extension. | 


I 4 


4 


JCTP 




4 


| Address 


of 


the 


JCT. | 


I® 


8 


STTRP 




4 


| Address 


of 


the 


SIOTTTR record. | 


|12 


C 


SCTP 




4 


| Address 


of 


the 


SCT. | 


|16 


10 


SIOTP 




4 


| Address 


of 


the 


SIOT. | 


| 20 


14 


JFCBP 




4 


| Address 


of 


the 


JFCB. | 


| 24 


18 


WTOBUFP 




4 


| Address 


of 


the 


WTO buffer. | 


1 28 


1C 


PARMP 




4 


| Address 


of 


the 


macro parameters. j 


| 32 


20 


WMACP 




4 


| Address 


of 


the 


macro volume list. | 


| 36 


24 


— 




1 


| Reserved for the future. | 


| 37 


25 


— 




3 


| Protect 


key. 




| 40 

L 


28 

j 





x_ 


8 


| Reserved for future use. | 



□ 
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DYNAMIC ALLOCATION WORK 
DATASET FUNCTION 

Size: 

Located in: 

Created by: 

Used and updated by: 

Contents: 



TABLE, VARIABLE AREA (DAWTVARY) AS USED IN THE 

52 bytes 

DAWT — (Subpool 252) 

IGC00099 

IGC07099, IGC08099, IGC09099, IGC10099 f 
IGC11099, IGC12099, IGC13099 f IGC14099, 
IGC15099 

Work area for the DATASET function. 



Displacement 
Dec. Hex. 



4 

8 

12 

16 



20 
20 
24 
26 

28 

32 

36 

40 



4 

8 

C 

10 

14 
14 
18 
1A 

1C 

20 

24; 

28 



Field 

Name 

+ 

DAWA1P 

SIOTPTR 

DAWA2P 

FTTR 

CURUPL 

DEVTYP 
DMTP 

UCBP 

ENQP 

TCBPTR 

ENQLIST 

VFLAGS 



VDUMMY 
VDOMIT 

VDDR 

VNEW 

VDEDMT 

VSPFCUCB 

VSPFCVOL 

VBPCONST 

V2321 



T 



r t 

I I Operation 
| Flowcharts j Diagram 
|. + ., 

| JB | 21 

_J J. 



Size in 
Bytes 

4 



4 

4 

4 

4 

8 
4 
2 
2 

4 

4 

4 

1 



Contents 



l 



tdynamic allocation work area #1. 

tSIOT buffer. 

tdynamic allocation work area #2. 

TTR of the DSENQ record. 

t current UCBLIST. 

Device type, subfielded as follows: 
tbit pattern. 
Not used. 
tUCB. 

tENQ dsname parameter list. 

t Caller's TCB. 

tENQ parameter list. 

Flag bits, as follows: 

[ Bit Meaning when on 

Dummy data set. 

1 Omitted dsname. 

or 

1 DDR is in system. 

2 Disposition is NEW. 

3 DMT is to be deleted. 

4 Specific UCB. 

5 Specific volume. 

6 Pattern construction area is 
built. 

7 2321 pas 



(Continued) 



492 Terminal Monitor Program (Release 21.6) 



r t 

| Displacement | Field 
|Dec. Hex. | Name 


~~T 

| Size 
| Bytes 


— T _ 

in| 

| Contents 

i 


r 

i 




T 
1 


r 


T 

I 


1 

|41 
i 


29 


1 

| MSGLV 

1 


1 1 


1 

| Mess age level - 


1 

|42 

i 


2A 


1 
i 


1 1 


1 

|Not used. 

i 


1 
| 43 

i 


2B 


1 

| NAMES I Z 
i 


1 1 


1 

|Size of dsname. 

i 


1 

|44 

j 


2C 


1 

| LOADLIST 


1 4 


1 

| tLoad parameter list. 


| 48 

L 


30 


1 

1 


1 4 
_i 


1 

|Not used, 

J. 



H 



B 
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DYNAMIC ALLOCATION WORK 
UPDATING FUNCTION 

Size: 

Located in: 

Created by: 

Used by: 

Updated by: 

Contents : 



TABLE , VARIABLE AREA (DAWTVARY) AS USED IN THE 

48 bytes * 

DAWT — (Subpool 252) 

IGC25099 

IGC25099, IGC26099, IGC27099, IGC29099 

IGC25099, IGC26099, IGC27099, IGC29099 

Work area for the UPDATE function. 



Displacement 
Dec- Hex. 





4 

4 

8 

12 

12 

16 

16 

20 

24 
28 
32 
36 




4 
4 
8 
C 
C 
10 

10 
14 

18 
1C 

20 
24 



Field 

Name 



DD1ADD 

OLDDSE 

DD2ADD 

NSWDSE 

DAW1P 

DSNADD 

ADDINIT 

ADDNAME1 

LASTDSE 
ADDNAME2 

AFDSE 
ANDSE 
ADSNDSE 



r T 1 

| (Operation 
| Flowcharts | Diagram 
f + 1 

| JG | 26 

J -L 



Size in 
Bytes 



4 
4 
4 
4 
4 
4 
4 

4 
4 

4 
4 
4 
8 



Contents 



Address of the first DDNAME. 

OR 
Address of the TCB if Bit 3 of VFLAGS 
is on. 

Address of DSE to change. 

Address of the second DDNAME. 

Address of DSE to replace OLDDSE. 

Address of DAWT work area 2 (DAWA2) . 

Address of the DSLNGTH DSNAME buffer. 

Address of first DSE. 

Address of the DSE block containing 
first DDNAME or DSNAME. 

Address of last DSE. 

Address of the DSE block containing 
the second DDNAME. 

Address of the first DSE block. 

Address of the new DSE block. 

Address of the next DSE on the chain. 

Reserved for future use. 
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— . r 

Displacement! Field 
Dec. Hex. |Name 
+ 


"T 

| Size 
| Bytes 
-+ 


— T 

in| 

— + 


Contents 


44 2C |VFLAGS 


I 1 


]Bit 


settings, as follows: 






|Bit 

|0 
|1 
|2 
|3 

I 1 * 
| 5 

|6 

|7 


Meaninq when On 
First DDNAME found. 
Second DDNAMS found. 
DSNAME found. 
Search on TCB address. 
Reserved for future use. 
Only one DSE in chain. 
Chain new DSE in front. 
Chain new DSE at end. 


45 20 |CONCOUNT 


1 1 


| Number of DDs to be concatenated. 


46 2E |-~ 


1 2 


| Reserved. 



L J. J J. 



J 



E 
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ENQUEUE/DEQUEUE PARAMETER LIST FOR ALLOCATION/TERMINATION RESOURCE 

Size: 40 bytes. 

Located in: Subpool 252. 

Created by: IGC0 8099, IGC10099. 

Used by: Normally — IGC11099 (for enqueue) 

IGC15099 (for dequeue) 



Freed by: 



Contents: 



Abnormally (in the case of any error exit) for 
dequeue by IGC11099, IGC12099, IGC15099 

The module that uses it for dequeue, in all 
cases. 

Contains the following fields for enqueuing or 
dequeuing from the allocation/termination 
resource (replaces the LIST form of the macro 
instruction) . Note that the contents shown 
below repeat after the second ENDIND field. 
Note also that the routines enqueue using 
separate lists, but they dequeue using both 
lists at once. 



Displacement 

Dec. Hex. 

| 





1 
2 

3 
4 
8 
12 







1 

2 

3 

4 
8 
C 



Field 
Name 



T T 

Size in 
Bytes 



r t 

| (Operation 
| Flowcharts | Diagram 
j. + 

| JB I 21 

J J. 



ENDIND 



MINORLNG 
OPTIONS 

RTCODE 



ENDIND 



-+■ 



1 
1 

1 

4 
4 
l 



Contents 



X'OO 1 for dequeuing, using both lists 
at once; when the enqueue is 
accomplished, the using routine 
places X'OO" in this field. 

X'FF' for enqueuing. 

X'02'. 

Bit settings as appropriate. (X" 40* - 
Indicates an exclusive request for a 
system resource; do not wait until the 
resource is available.) 

X'OO'. 

Address of major name. 

Address of minor name 1. 

X'FF 1 for both enqueue and dequeue. 



J- 

| (These fields repeat for concurrent use by the macro instruction.) 
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ENQUEUE WORK AREA (EWA) FOR DATA SET NAME ENQUEUE 
Size: 28 



Located in: 
Created by: 
Used by: 



Updated by: 
Contents : 



Subpool 252. 

IGC10099. 

Normally IGC10099 when enqueuing a DSNAME not 
previously associated with the job. IGC15099 
when enqueuing a data set name to change the 
use attribute from share to exclusive 
(RET=CHNGE) . 

Abnormally in the case of an error exit to DEQ 
the data set name in IGC10099, IGC11099, 
IGC12099, and IGC15099. 

IGC10099 

Parameter list for the ENQ macro instruction 
for the data set name, and the parameters for 
the WAIT/POST mechanism with the Initiator. 



Displacement 
Dec. Hex. 



Field 
Name 



| j Operation 

| Flowcharts | Diagram 



h 



JB 



21 



INITWRD1 



INITWRD2 



ENQPARMS 



Size in 
Bytes 



20 



Contents 



I 



Flags (first byte of the field only) 
with the following meanings when the 
bit is on: 

Bit — Indicates that ENQ is to be 

done. 
Bit 1 — Indicates that DEQ is to be 

done. 
Bits 2-7 — Reserved. 
Bytes 1-3 — Address of the ENQ/DEQ 
parameter list. 

The ECB on which the module waits for 
the Initiator to complete the 
requested function. 

Parameter list for enqueuing or 
dequeuing the data set name. 



□ 



Section 5: Data Areas 497 



PATTERN CONSTRUCTION AREA (PCA) 



Size: 

Located in: 
Created by: 
Used by: 
Freed by: 

Contents: 



Variable 

Subpool 252 

IGC12099 

IGC13099 

IGC13099 normally, or by IGC12099 in case of an 
error. 

Bit pattern for the main UCBs and 2321 subcells 
eligible to satisfy this request for dynamic 
allocation. 



r t 1 

| | Operation 

| Flowcharts j Diagram 
j. + - 

| JB | 21 
J ± j 



Displacement 
Dec . Hex . 


Field 
Name 


Size in 
Bytes 

U -J 


Contents 

i 








r 1 
| None 


r 1 
4 


Reserved. 


4 


4 


UCBCNT 


2 


Number of UCBs represented in this 
table. 


6 


6 


PCCNT 


2 


Total number of eligible devices. 


8 


8 


DCCNT 


2 


Number of datacells represented in 
this table. 


10 


A 


PCASIZE 


2 


Size of this pattern construction 
area . 


12 


C 


MPA 


Var. 


Bit pattern representing the eligible 
devices . 



L X JL X J 
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SYSOUT WORK AREA (SWA) 



Size: 

Located in: 
Created by: 
Used by: 
Freed by: 
Contents : 



40 bytes. 

Subpool 252. 

IGC0 8099. 

IGC08099, IGC09099. 

IGC09099. 

Space for the system generated data set name 
for the SYSOUT data set. 



r t 1 

| | Operation 

| Flowcharts | Diagram 
t + 



JC 



I 



21 



| Displacement | Field 
|Dec. Hex. | Name 



h 



"T T" 

| Size in| 
| Bytes | 



-H 



Contents 



I SWA 



I 

-JL- 



40 j System generated data set name for the 
| SYSOUT data set. 



1 



B 
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UCBLIST 
Size: 
Located in: 

Created by: 
Used by: 
Freed by: 

Contents 



176 bytes (or multiples thereof). 

DAWA2 (first 176 bytes of UCBLIST only). Any 
additional sections are obtained from subpool 
252. 

IGC13099. 

IGC13099, IGC14099. 

IGC14099 (additional 176-byte blocks after the 
first) . 

Accounting data for the list plus up to 84 
two-byte UCB entries for each 176-byte block in 
the list . 



Displacement 
Dec. Hex. 



2 
4 
8 



Field 
Name 



CNDCNT 



ENTCNT 
NXTULP 
None 



r t 

| (Operation 
| Flowcharts | Diagram 
j. + 

I JB I 21 



Size in 
Bytes 



168 



Contents 



Total number of device candidates to 
satisfy the request for allocation. 
(Valid only in the first block in 
DAWA2). 

Number of candidates in this block. 

Address of next UCB list block. 

A list of up to 84 contiguous two- byte 
entries that contain the addresses of 
the UCBs of devices eligible to 
satisfy the request. (Note that 
additional main storage, as necessary, 
may contain 176-byte UCBLIST blocks 
chained to the initial one, for a list 
of eligible UCBs greater than 84.) 
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UNALLOCATE WORK AREA 
Size: 

Located in: 
Created by: 
Used by: 

Updated by: 

Contents: 



584 bytes. 

Subpool 252. 

IGC01099. 

IGC01099, IGC02099, IGC 03099, IGC04099, 
IGC05099, IGC06099. 

IGC01099, IGC02099, IGC03099, IGC04099, 
IGC05099, IGC06099. 

Contains control blocks, lists and parameters, 
and a WTO buffer. 



j Displacement 
| Dec. Hex. 





i 

| 176 

I 
[352 

I 

| 476 

I 

| 536 

I 

| 552 

L 





BO 

160 

IDC 

218 

228 



Field 

Name 



SIOT 
JFCB 



I T 1 

| | Operation 

| Flowcharts | Diagram 

| JC | 22 

-j J. 



Size in 
Bytes 



176 

176 

124 

60 

16 

32 



Contents 



Step Input /Out put Table. 

Job File Control Block. 

WTO buffer. 

Macro volume list. 

Macro parameter list. 

Queue manager external parameters. 



El 
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Section 6: Diagnostic Aids 



This section contains the following charts: 

• Register Usage (Figure 33) — a summary of the use of general 
registers 0-15 for DAIR. 

• Register Usage (Figure 34) — a summary of the use of general 
registers 0-15 for SVC 99. 

• Return Codes from the Dynamic Allocation Interface Routine (Figure 
35) — a summary of DAIR return codes and their meanings, 

• Return Codes from MVT Dynamic Allocation Routines (Figure 36) — a 
summary of Dynamic Allocation return codes and their meanings. DAIR 
places this return code in the DAnnDARC field of the DAPBnn, where 
nn is the DAIR entry code. 

Other useful diagnostic information is contained in the DAIR Work 
Area (DAIRWA) and DAIR Parameter Blocks. These data areas are described 
in Section 5. 
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Figure 33. Register Usage: Dynamic Allocation Interface Routine (DAIR) 
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Routine 


Return Code 
Hexadecimal 


Meaning 


IKJEFDOO 


00 
04 
08 

OC 
10 
14 
18 
1C 
20 
30 


Successful. 

Invalid parameter list. 

Error in catalog management routine. The catalog management return code is stored in the 
CTRC field. 

Error in dynamic allocation. The dynamic allocation return code is stored in the DARC field. 

No entries available for use in the TIOT. 

DDNAME requested is currently unavailable. 

DSNAME requested is a member of a concatenated group. 

DDNAME or DSNAME specified is not currently allocated. 

Error in catalog information routine. 

System error — the completion code is xxxx, an ABEND code that DAIR receives from the 
STAE macro instruction. 



Figure 35. Return Codes. Dynamic Allocation Interface Routine (DAIR) 



□ 
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Return Code 
Hexadecimal 

0000 
0004 

0008 

002w 



003x 



0104 



Meaning 
Dynamic Allocation completed successfully. 

Dynamic Allocation could not delete a table that was loaded using a LOAD macro 
instruction. The data set is still allocated. 

The temporary data set was freed and deleted. The disposition specified by the calling 
routine is invalid for a temporary data set. 

The data set was successfully freed, but the disposition (catalog or uncatalog) was 
unsuccessful. The hexadecimal digit ' w ' is a code indicating the reason for the failure. 

w Explanation 

1 A control volume was required and a utility program must be used to catalog the 
data set. 

2 The data set to be cataloged had previously been cataloged or the data set to be 
uncataloged could not be located, or no change was made to the volume serial list 
of a data set with a disposition of CATLG. 

3 A specified index did not exist, 

4 The data set could not be cataloged because space was not available on the 
specified volume. 

5 Too many volumes were specified for the data set; because of this, not enough main 
storage was available to perform the specified cataloging. 

6 The data set to be cataloged in a generation index is improperly named. 

7 The data set to be cataloged was not opened and no density information was 
provided. (For dual density tape requests only). 

9 An uncorrectable input/output error occurred in reading or writing the catalog. 

The data set was successfully freed, but the requested disposition (delete) was 
unsuccessful. The hexadecimal digit ' x ' is a code indicating the reason for failure, 

x Explanation 

1 The expiration date had not occurred. 

4 No device was available for mounting during deletion. 

5 Too many volumes were specified for deletion. 

6 Either no volumes were mounted or the mounted volumes could not be demounted to 
permit the remaining volumes to be mounted. 

8 The SCRATCH routine could not delete the data set from the volume. 

9 A job was cancelled and was deleted from any one of the following queues: 

Input Queues 

Background Reader Queue 

Hold Queue 

Automatic SYSIN Batching (ASB) Queue 

Output Queues 

Dynamic Allocation encountered an I/O error while attempting to read from 
SYS1.SYSJOBQE. 



Routine * 

All 

IGC11099 
IGC 12099 
I GC 13099 
UNALLOC 



IGC03099 



IGC03099 



All 



*Note: The symbolic name for the first in a series of routines. For a complete list of SVC 99 Dynamic Allocation 
routines, refer to Figure 29 — Program Hierarchy: SVC 99 Routines 
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Return Code 






Hexadecimal 


Meaning 


Routine* 


0108 


Dynamic Allocation encountered an I/O error while attempting to write to 


IGC03099 




SYS1.SYSJOBQE. 


IGC04099 
IGC05099 
IGC08099 
IGC11099 
IGC 15099 
IGC 16099 
IGC 17099 
IGC20099 


010C 


Dynamic Allocation encountered an I/O error whi le enqueueing on SYS1 .SYSJOBQE. 


IGC05099 


0204 


Reserved, 




0208 


No space is available on SYS 1 .SYSJOBQE. . 


IGC04099 
IGC08099 
IGC09099 
IGC 10099 


020C 


The calling routine made a request for the exclusive use of a shared data set. The request 


IGC 15099 




can not be honored. 


IGC 16099 


0210 


The data set requested is not available. This data set is allocated to another job and its 
usage attributes conflict with this request. 


IGC 10099 


0214 


A direct access device is not available. To be available it must satisfy the following 
requirements: 

o It must be online. 

o It must be ready. 

o It must not be pending offline. 

o It must not be pending an unload. 

o It must be shareable. 

o A MOUNT message must not be currently outstanding. 

o The volume attributes must have been defined. 


IGC 13099 


0218 


The required volume was not mounted on an available device. 

(See Dynamic Allocation return code 214 for the requirements for an available device.) 


IGC 13099 


021C 


Incorrect unitname supplied. 


IGC11099 
IGC12099 


0220 






through 


Reserved. 




0264 






0268 


Concatenation was requested, but the DCBTIOT offset cannot be found in this job's 
DEB/DCB chain. 


IGC 18099 


0304 


The ddname was not specified by the calling routine. 


IGC00099 
IGC 16099 
IGC 18099 


0308 


The ddname specified by the calling routine was not found. 


IGC00099 
IGC0 18099 


030C 


An invalid function code was specified by the calling routine. 


IGC00099 


0310 


The "exchange" option was specified by the calling program and the TIOT entry for the 
second (new) ddname could not be found. 


IGC 16099 


0314 


Restoring ddnames, as per this request, would have resulted in duplicate ddnames — 
duplicate ddnames are not permitted. 


IGC23099 


*Note: Th 


e symbolic name for the first in a series of routines. For a complete list of SVC 99 Dynamic Alloc 


ation 


ro 


utines, refer to Figure 29 — Program Hierarchy: SVC 99 Routines 





El 
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Return Code 
Hexadecimal 

0318 



031C 

0320 
0324 
0328 

032C 

0330 
0334 

0338 

033C 

0340 

0344 

0348-034C 

0350 
0354 
0358 
035C-0360 
0364 

0404 

0408 

040C 



Meaning 
Invalid characters are present in the ddname provided by the caller. 

Invalid characters are present in the membername provided by the caller. 

Invalid characters are present in the dsname provided by the caller. 

Invalid characters are present in the SYSOUT program name provided by the caller. 

Invalid characters are present in the SYSOUT form number provided by the caller. 

An invalid SYSOUT class was specified by the caller. 

A membername was specified but the data set is not a partitioned data set. 
The supplied data set name exceeded 44 characters in length. 

The data set disposition specified by the caller is Invalid, 

More than one mutually exclusive keyword (DSNAME, DUMMY, TERM, or SYSOUT) 
was specified. 

The dsname was not specified and the disposition was not " new ". (If the disposition is 
"new " the dsname may be omitted.) 

Dynamic Allocation was specified in a non-TSO environment. 

Reserved . 

Jobname field contains zeros. This field may be blank, but may not contain zeros. 

Reserved , 

DELETE cannot be specified if the data set is shared. 

Reserved . 

JOBLIB DDNAME or STEPLIB DDNAME can not be specified. These data sets have 
been opened and thus cannot be allocated. 

The device to be unallocated is not a direct access device. ( Only direct access devices 
are supported for dynamic allocation.) 

The new DDNAME is a duplicate of a DDNAME in the TIOT, The calling routine 
requested allocation of a file name (DDNAME) already used for the job. 

The specified ddname is associated with a DYNAM entry. DYNAM entries may not be 
concatenated. 



Routine* 

IGC07099 
IGC 16099 

IGC07099 
IGC 16099 

IGC07099 

IGC07099 

IGC07099 

IGC04099 
IGC07099 

IGC 16099 

IGC07099 

IGC01099 
IGC09099 

IGC07099 
IGC07099 
IGC00099 



IGC04099 

IGC01099 

IGC00099 
IGC01099 



IGC07099 
IGC16099 

IGC18099 



*Note: The symbolic name for the first in a series of routines. For a complete list of SVC 99 Dynamic Allocation 
routines, refer to Figure 29 — Program Hierarchy: SVC 99 Routines 
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Return Code 
Hexadecimal 



0410 

0414 
0418 

041C 

0420 

0424 
0428 

042C 

0430 

0504 

x7zz 



Meaning 



The specified ddname is allocated to- a data set. The ddname must be associated with 
a DYNAM entry. 

The specified ddname is already allocated to a terminal entry (TERM-TS). 

The referenced data set is a member of a concatenated data group. If the data set was 
dynamically concatenated it must be deconcatenated before this request can be honored, 
If concatenated at LOGON, the data set may not be freed until LOGOFF. 

The referenced data set is a multi-volume data set. Multi-volume data sets (data sets on 
more than one volume) are not supported by Dynamic Allocation, 



The specified ddname is associated with an open data set. (A data set must be closed to 
be used by Dynamic Allocation.) 



Reserved. 

The specified ddname is part of a previously allocated space. Dynamic Allocation cannot 
free it. 

The ddname to be freed is associated with a generation data group. Generation data 
groups are not supported in Dynamic Allocation, 

The specified ddname is associated with a passed data set. Passed data sets cannot be freed 
or converted. 

A serious error of undetermined cause has occurred involving system data. 



A return code of this form consists of an identifier (x) 

representing the system macro instruction returning the code, and the code itself (zz) 

returned by the macro instruction. 

If "x" equals 1, the LOCATE macro instruction returned the code. ** 
If "x" equals 4, the DADSM macro instruction returned the code. 
If "x" equals 6, the OBTAIN macro instruction returned the code. ** 
"zz" is the low order byte from register 15 as returned by the macro instruction. 

The return codes for the LOCATE and the OBTAIN macro instructions are described in 
IBM System/360 Operating Syste m; System Programmer's Guide, GC28-6550. 

The return codes for the DADSM macro instruction are as follows: 
Code Meaning 
00 The operation completed successfully. 

04 Duplicate name DSCB. 

08 No available DSCB's in the VTOC. 

0C A permanent I/O error occurred in reading or writing a DSCB. 



Routine'* 



IGC07099 



IGC07099 

IGC01099 
IGC07099 



IGC01099 
1GC09099 

IGC01099 
IGC07099 
I GC 16099 
I GC 18099 
IGC23099 



IGC01099 

IGC01099 

IGC01099 
I GC 17099 

1GC25099 
IGC27099 
IGC29099 

IGC09099 
IGC14099 
IGC26099 



*Note: The symbolic name for the first in a series of routines. For a complete list of SVC 99 Dynamic Allociation 

routines, refer to Figure 29 — Program Hierarchy: SVC 99 Routines 
*Note: The SVC 99 routines do not issue these macro instructions. Instead, DAIR receives these codes in the 

DAxxDARC field of the DAIR parameter block for the DAIRxx subroutine that issued the macro; xx is the 

number of the issuing subroutine and its parameter block. 



□ 



Figure 36. Return Codes: SVC 99 Routines (Part 4 of 5) 
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Return Code 
Hexadecimal 


Meaning 


Routine* 




Code Meaning (continued) 
10 The absolute track requested is not available. 

14 The quantity of space requested is not available. 

18 The record length specified is greater than the track length. 

30 The number of tracks requested for a split cylinder data set is greater than the 
number of tracks per cylinder. 

34 The disk pack is a DOS volume and the request is not absolute track. 

38 The primary quantity of space requested is less than the directory quantity 
requested . 




*Note: The symbolic name for the first in a series of routines. For a complete list of SVC 99 Dynamic Allocation 
routines, refer to Figure 29 — Program Hierarchy: SVC 99 Routines 



Figure 36. Return Codes: SVC 99 Routines (Part 5 of 5) 
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Part 5: Default Service Routine 



m 
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Section 1: Introduction 



The Default Service Routine constructs a fully qualified data set name, 
when provided a partially qualified data set name by the calling 
routine. A fully qualified data set name has three fields: a userid, a 
data set name, and a descriptive qualifier. 

For example: 



Userid (user identification) 



Data set name (user supplied) 
Descriptive qualifier 



SMITH. ACCTS. DATA 



For a more detailed description of data set naming conventions, refer 
to IBM System/360 Operating System: Time Sharing Option, Command 
Language Reference , GC28-6732. 

In general. Default is called if the terminal user refers to a data 
set without giving a fully qualified name- The calling routine provides 
Default with the address of the DFPL (Default Parameter List) , which 
contains the address of the DFPB (Default Parameter Block). The DFPB 
contains an address which contains the data set name, as provided by the 
terminal user. 



Default prefixes the userid to the data set name, checks the data set 
name against the system catalog, and if necessary either inserts the 
proper qualifier or prompts the user to choose a qualifier. 

As supplied with TSO, the Default Service Routine will reside in 
SYSl.LINKLIB or SYSl.CMDLIB and will execute in the user's foreground 
region with the protection key assigned to that region. An installation 
may choose to make Default resident in the TSO Link Pack Area (TSLPA) in 
the region assigned to the Time Sharing Control Task (TSCT). The 
Default service routine requires about 4,000 bytes of main storage. 



E 
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Section 2: Method of Operation 



Method of Operation Diagram 28 (foldout) shows how the Default Service 
Routine constructs a fully qualified data set name. 

The Default service routine is used this way: 

• Default is called by a TSO command processor to fully qualify the 
data set name- The calling program passes the address of the 
Default Parameter List (DFPL) in register 1. 

• The DFPL points to the Default Parameter Block (DFPB) which contains 
the entry and control codes. The entry codes tell Default to use 
the qualifier provided by the calling routine, the terminal user, or 
the system catalog. Additional functions that can be performed by 
Default are specified by control codes. (For example: An entry 
code of X'OU 1 causes the system catalog to be searched for a data 
set name qualifier, and a control code of X f 20' causes the data set 
name to be prefixed with the user id.) 

• The Catalog Information Routine (IKJEHCIR) is used by Default to 
search the system catalog and find one or more data set qualifiers - 
If more than one qualifier is found, the terminal user is prompted 
to choose one of them. 

• Default prefixes the userid and adds the data set qualifier, as 
required, and returns control to the calling program. 



ENTRY TO DEFAULT 

Default is invoked by either a CALL or LINK macro instruction at entry 
point IKJDFLT in load module IKJEHDEF. At entry, register 1 points to 
the Default Parameter List (DFPL) . 



The Default Parameter List contains: 

• The address of the User Profile Table (UPT) . 

• The address of the Environment Control Table (ECT). 

• The address of the Event Control Block (ECB) . 

• The address of the Default Parameter Block (DFPB). 

The Default Parameter Block contains an entry code and a control 
code. These codes are set by the calling program and specify the 
functions required. Figure 37 describes the entry codes and Figure 38 
describes the control codes. 
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I- 



h 



h 



Entry 
Code 



X'OO 1 



x'oa' 



X'08' 



h 



X'OC" 



Function Requested 



Use the qualifier provided 
by the caller. 



Find a qualifier- If more 
than one exists prompt the 
terminal user to choose one. 



Find a descriptive qualifier, 
but don't prompt the terminal 
user. 



Use qualifier from DFPB or 
find one from system catalog, 
or use a new one submitted by 
the terminal user. 



Functions Performed by Default 



Uses qualifier from DFPB, as 
provided by the caller. 



-H 



-H 



• Builds a list of possible 
qualifiers. 

• Prompts the terminal user to 
choose one. 

• Checks his response against 
the list. 



o Builds a list of possible 
qualifiers. 

• Returns control to caller 
with a control code 
indicating more than one 
qualifier was found; thus 
prompting is necessary. 



Does one of the following: 

• If a qualifier is provided 
in DFPB, uses it. 

• If no qualifier is provided: 

- Builds a list of possible 
qualifiers. 

- Sends list to terminal. 

- Prompts terminal user to 
choose one from the list 
or submit a new one. 



H 



Figure 37. Entry Codes: Default Service Routine 



r 1 

| Control Code 

| Flags 

j. 

|Bits 0-1 


r : 

Functions Performed by Default 



Not used (0). 


|Bit 2 


Prefixes the given data set name with userid. 


|Bits 3-4 


Not used (0) . 


|Bit 5 


Returns a copy of any added qualifier to the caller. 


|Bit 6 


Uses the qualifier provided by the caller. 


J Bit 7 


Issues a message telling the terminal user that an old 
data set is about to be reused. 



s 



L -L J 



Figure 38. Control Codes: Default Service Routine 



Section 2: Method of Operation 521 



PREFIXING USERID TO DSNAME 

If bit 2 of the control code byte is on, Default will prefix the user id , 
which was specified at LOGON, to the partially qualified data set name 
located in the data set buffer supplied by the caller. The address of 
this buffer is located in the DFPBDSN field of the Default Parameter 
Block. The format of the data set name buffer is as follows: 

r t 1 

| Byte | Contents | 

I + 1 

| 0-1 | The length of the data set name, in bytes. | 

i i i 

1 2-45 |The data set name, left justified and padded to the right with | 
| | blanks. j 

L X J 



SEARCHING THE SYSTEM CATALOG 

Default invokes the Catalog Information Routine (IKJEHCIR) to search the 
system catalog for the required qualifiers. Default must supply the 
userid and the data set name as a search argument. 

The Catalog Information Routine does the following: 

• Issues the LOCATE macro instruction to search the system catalog for 
the required qualifier. 

• Returns a list of qualifiers to Default. 

EXIT FROM DEFAULT 

Default returns to the calling control program by issuing a RETURN macro 
instruction. All registers, except register 15 which contains the 
return code, are restored. The return codes are shown in Figure 41. 
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Section 3: Program Organization 



This section describes the program organization of the Default service 
routine. It includes: 

• Program Hierarchy* 

• Program Description. 

• Flowcharts. 



Program Hierarchy 



The Default Service Routine is contained in one load module, IKJEHDEF. 
As supplied with TSO f the Default Service Routine will reside in 
SYSl.LINKLIB or SYSl.CMDLIB, and requires about U, 000 bytes of main 
storage. 



Module Descriptions 

DEFAULT — IKJEHDEF 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
j. + j 

|GA-GE | 28 

-J X 



I- 



I 

Ma jor Subroutines : 



Entry : 



Registers at Entry: 



Operation: 



Data Areas Created: 

i 

Data Areas Updated: 



h 



Routines Called: 



Mapping Macros 
Used:' 



Entered by a CALL or LINK macro instruction to 
entry point IKJDFLT. 



Register 1 contains the address of the Default 
Parameter List (DFPL). 



Returns a fully qualified data set name to the 
caller. Given a data set name Default can refer 
to the PSCB for userid, and search the system 
catalog and prompt the terminal user for the data 
set qualifier. 



None. 



IOPARM, CSPLPARM, CIRPARM. 



Fully qualified data set name and added qualifier 
may be returned in buffers provided by caller. 



IKJSCAN — Check the validity of input parameters. 

IKJEHCIR — Searches system catalog for data set 

qualifiers. 

IKJPUTL — Sends list of possible qualifiers to 

terminal . 

IKJPTGT — Prompts terminal user to choose a 

qualifier. 



IKJDFPL, IKJDFPB, IKJCSPL, IKJCSOA, 
IKJPSCB, IKJIOPL, IKJPGPB 



E 



(Continued) 
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h 



System Macros Used: 



-f 



Exit: 



SAVE, GETMAIN, LOAD, CALL, DELETE, LINK, FREEMAIN, 
RETURNo (TSO macro instructions PUTLINE and 
PUTGET are used to invoke IKJPUTL and IKJPTGT.) 



Return to the calling program. 



H 



Registers at Exit: 



All registers are restored except register 15 
which contains a return code, as follows: 



flex. 
Code 





4 

8 



10 

14 
18 
1C 
20 

24 



than 44 with 



Meaning 

Successful operation. 

Unable to obtain qualifier. 

Data set length is greater 

qualifiers added. 

Permanent I/O error in the catalog, systax 

error in the name, or the catalog data set 

not available. 

Data set exits at some level of index other 

than lowest index level specified. 

One of the names not found. 

Attention occurred. 

Invalid parameters. 

Prompting is required to qualify data set 

name . 

No data set names found. 
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Program Flowcharts 

This section contains program flowcharts for the Default service routine 

(IKJEHDEF) . 

CHART GA — IKJEHDEF 

CHART GB — IKJEHDEF 

CHART GC — IKJEHDEF 

CHART GD — IKJEHDEF 

CHART GE — IKJEHDEF 



E 
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CHART GA — IKJEHDEF 



IKJEHDEF 
IKJDFLT 



I (EP=IKJDFLT) ) 



Initialize and 
GETMAIN 



CI 



Validity Check 
Parameters 




No 




Invalid 
Parameter. 
Set RC to 28. 










< ' 




1 GB 1 






W 



Add Data Set 
Length and 
Userid Length 




Determine 
Length of 
Specified 
Qualifier 



_i Use Qualifier 
I Provided. 




From GE/J1 



Prefix Userid 
and Update 
Length 



IT 



Add Qualifier 
Length to Data 
Set Length 



Dsname Greater 
than 44. 
Set RC to 8. 




Add Qualifier 
to Name and 
Update Length 



Move New Name 
and Length to 
User's Buffer 
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CHART GB — IKJEHDEF 



GB | See Note 1 



IKJEHCIR 




Issue Error 
Message . 



Permanent l/O 
Error in Catalog. 
Set RC to 12. 




No Data Set 
Names Found. 
Set RC to 36. 



Move New Name 
and Length to 
Users Buffer 




Return Added 
Qualifier to 
Caller 



One of Dsnames 
not Found. 
Set RC to 20. 



D3 



Qualifier Name 

Provided Exists at 

Other than Lowest 

Level. 

(Set RC to 16.) 




RESTORE and 
FREEMAIN 



See Note 2 



( RETURN ] 



I 



Entry Code X '0C ' Causes One of the Following: 

• Accept Qualifier Provided, or 

• If Qualifier not Provided Search Catalog and 
Build a List of Possible Qualifiers for Terminal 
User, then Prompt Terminal User to Choose One 
or Specify a New One. 



Note 1 : 



From GA/H1 


Note 2 : 


From GA/D2 


GA/K4 




GA/F4 


GD/D1 




GC/B3 
GC/D4 
GC/H5 
GD/A4 
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CHART GC — IKJEHDEF 



CALLCIR 




Get Qualifiers 
X'Ol ' 




Set RC = 36 



TPUT 


E3 




PUTLINE 




List 
Qualifiers 


PUT 


rGET 


F3 




PUTGET 




Prompt User 
for Qualifier 



BADREPLY 



Gl 



PUTLINE 



Inform User 

Invalid 

Response 



From GE/D1 



PUTGET 



Prompt Use 
Again for 
Qualifier 



CMDSCAN 



Scan 
Response 




Move Response 
and Free Buffer 
from PUTGET 



GlW- 



Prompting 
Necessary 
Set RC to 32 




J_ 

GB 

,G4 



Note: Entry Code X'OO Causes One of the Following: 

• Accept Qualifier Provided, or 

• If Qualifier is not Provided Search System 
Catalog and Build a List of Possible 
Qualifiers for Terminal User; then 
Prompt Terminal User to Choose One 

or Specify a New One. 






H4 






H5 


PUTLINE 




Permanent 

Error in Catalog. 

Set RC to 4. 


Issue Error 
Message 










• 


' 



From GE/J1 



Determine 
Length of 
Qualifier 



Add Qualifier 
and Update 
Length 
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CHART GD — IKJEHDEF 



GD from GA/E1 
V A1 



CNTRLTST 



Issue 

Message ? 

(Control Bit 7 

On) 

[No 



Prefix 

Userid ? 

(Control Bit 2 

On) 





A2 




A3 




A4 






OUTLINE 




PUTGET 




Default was 
Successful. 
Set RC to 




> Yes * 


Inform User 
Data Set About 
to be Reused 


Let User 
Attention Exit 
or Allow Data 
Set to be Reused 













Add Dslength 
and Userid 
Length 



D2 



Qualifie 



On) 



Determine Length 
of Specified 
Qualifier 




Prefix Userid 
and Update 
Length 



T 



Add Qualifier 
Length to Data 
Set Length 




Add Qualifier 
to Name and 
Update Length 



E 
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CHART GE — IKJEHDEF 



GE | From GC/C2 




List Qualifiers 



GETQUAL 



Prompt User 
for Qualifier 




Scan 
Response 



Move 

Response and 
Free Buffer 




Determine 
Length of 
Qualifier 



PUTLINE 



Inform User 

Invalid 

Response 




PUTGET 



Prompt User 
Again for 
Qualifier 
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Section 4: Directory 



This chart contains inf ormation to help you find the appropriate program description, 
flowchart # or assembly listing. 






Label 



ADDNAME 

ADDQUAL 

ADDUSRID 
BLDLIST 

BADREPLY 

CALLCIR 

CHECKRC 

CLEANUP 

CNTRLTST 

COMPARE 

GETQUAL 

IKJDFLT 

IKJEHDEF 

NOTOC 

RESPONSE 

TESTRC 

TPUT 

TPUTGET 



Common 
Name 



Load 

Module 

Name 



T T 

Assembly 
modu le 
Name 



IKJEHDEF 

IKJEHDEF 

IKJEHDEF 
IKJEHDEF 

IKJEHDEF 

IKJEHDEF 

IKJEHDEF 

IKJEHDEF 
IKJEHDEF 
IKJEHDEF 

IKJEHDEF 
IKJEHDEF 
IKJEHDEF 
IKJEHDEF 
IKJEHDEF 

IKJEHDEF 
IKJEHDEF 
IKJEHDEF 



IKJEHDEF 

IKJEHDEF 

IKJEHDEF 
IKJEHDEF 

IKJEHDEF 

IKJEHDEF 

IKJEHDEF 

IKJEHDEF 
IKJEHDEF 
IKJEHDEF 

IKJEHDEF 
IKJEHDEF 
IKJEHDEF 
IKJEHDEF 
IKJEHDEF 

IKJEHDEF 
IKJEHDEF 
IKJEHDEF 



Control 
Section 

Name 



T 



Description 



IKJEHDEF | Add qualifier to Dsname in 
buffer, 

IKJEHDEF | Attach qualifier to Dsname 
buffer. 

IKJEHDEF | Prefix userid to Dsname. 

IKJEHDEF | Bui Id list of qualifiers for 
terminal user. 

IKJEHDEF | If improper reply, tell terminal 
user. 

IKJEHDEF | Call Catalog Information Routine 
to find data set qualifiers from 
System Catalog. 

IKJEHDEF | Check Catalog Information 
Routine Return Code. 

IKJEHDEF | Restore registers, free core. 

IKJEHDEF | Check if message is required.. 

IKJEHDEF | Check qualifier chosen by 

terminal user against list. 

IKJEHDEF | Prompt for qualifier. 

IKJEHDEF | Entry point to Default. 

I K JEHDEF | Control sec ti on. 

IKJEHDEF | Check if userid is to be added. 

IKJEHDEF | Check response from terminal 
user. 

IKJEHDEF | Handle PUTLINE return code. 

IKJEHDEF | Write a line to the terminal. 

IK JEHDEF | Prompt terminal user to choose a 
qualifier. 



Flow- 
chart 



GA 

GC 

GA 
GC 

GC 

GC 

GB 



Dia- 
gram 



28 

28 

28 
28 

28 

28 

28 



GB 


28 


GD 


28 


GC 


28 


GE | 


28 


GA | 


28 


GA ] 


28 


GA 


28 


GC 


28 


GC 


28 


GC 


28 


GC 
i 


28 


1 
J 





B 
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Section 5: Data Areas 



This section contains the major data areas used by the Default Service 
Routine. These areas include: 

• CIRPARM — Catalog Information Routine Parameter List 

• CSPLARM — Command Scan Parameter List 

• DFPB — Default Parameter Block 

• DFPL — Default Parameter List 

• IOPL — I/O Service Routine Parameter List 



CATALOG INFORMATION ROUTINE PARAMETER LIST (CIRPARM) 

Size: 20 Bytes 

Created by: Default (IKJEHDEF) 

Updated by: N/A 

Used by: Catalog Information Routine (IKJEHCIR) 

Contents: Parameter List for CIR (IKJEHCIR) 



r t 1 

| Flowcharts | Operation 
| J Diagrams 

(. + 1 

J GA-GE J 28 

j. x 4 



j Displacement 
J Dec . Hex . 

Y 



10 



I 8 

I 
1 12 

I 
|16 

L 



8 
C 
10 



Field 
Name 



CIRPARM 

NAMETTR 

CVOLIDPT 
WKAR1PTR 
WKAR2PTR 



Size in 
Bytes 



4 



Contents 



CIR option in first byte. Other bytes 
are unused. 

Pointer to data set name or ttr 
(relative address). 

Pointer to CVOL ID. 

Pointer to 265 byte work area. 

Pointer to 18 word save area. 
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COMMAND SCAN PARAMETER 

Size: 

Created by: 

Updated by: 

Used by: 

Contents: 



LIST (CSPLARM) 
24 Bytes 

Default (IKJEHDEF) using mapping macro IKJCSPL 
N/A 

Command Scan Routine (IKJSCAN) 
Parameter List for Command Scan (IKJSCAN) 



r t n 

| Flowcharts | Operation 

| | Di agr ams 
,. + ^ 

|GA-GE | 28 
-X L 



T T 

Size in 
Bytes 

4 

4 

4 

4 

4 

4 



-H 



[Displacement 
Dec. Hex. 



10 

I 

I 

I 

|12 

I 
| 16 

I 
120 





4 

8 

C 

10 

14 



Field 

Name 



CSPLUPT 

CSPLECT 

CSPLECB 

CSPLFLG 

CSPLOA 

CSPLCBUF 



Contents 



Pointer to UPT. 
Pointer to ECT. 

Pointer to Command Processor 1 s ECB. 
Pointer to a Flag Word. 
Pointer to Output area- 
Pointer to Command Buffer. 



-H 



a 
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DEFAULT PARAMETER BLOCK 

Size: 

Created by: 

Updated by: 

Used by: 

Contents : 



(DFPB) 
12 Bytes 

Calling program, using a mapping macro IKJDFPB 
N/A 

IKJEHDEF 
Parameter Block for Default (IKJEHDEF) 



r t 1 

| Flowcharts | Operation 

| J Diagrams 

j. + ^ 

| GA-GE | 28 

-J. X 



| Displacement | Field | S 
| Dec. Hex . | Name | E 

L_ „ . - l l 


iz 
lyt 


r 

1 o 


| DEPBCODE | 


1 


1 1 


1 |DFPBDSN | 


3 


1 4 


4 | DFPBCNTL | 


1 


1 5 


5 |DFPBPSCB | 


3 


1 8 


8 |DFPBLORC | 


1 


1 9 


9 | DFPBQUAL | 


3 



Contents 



Entry Code, (X f 00 , # X , 04 , ,X f 08 ■ , or 
X f 0C). 

Address of data set name buffer. 

Control Code. 

Bit Meaning When Set 
0-1 Reserved (0). 

2 USERID is to be prefixed. 
3-4 Reserved (0). 

5 Return added qualifier in buffer 
pointed to by DFPBQUAL. 

6 Add qualifier pointed to by 
DFPBQUAL. 

7 Issue message. 

Address of Protected Step Control 
Block. 

LOCATE Return Code. (Code returned 
here if LOCATE error.) 

Address of default qualifier either to 
be added by Default or that was added 
by Default (see bits 5 and 6 of 
DFPBCNTL) . 



534 Terminal Monitor Program (Release 21.6) 



DEFAULT PARAMETER LIST (DFPL) 

Size 16 Bytes 

Created by: Calling program, using a mapping macro IKJDFPL 

Used by: IKJEHDEF 

Contents: Parameter List for Default — IKJEHDEF 



r t 1 

| Flowcharts | Operation 
| | Diagrams 
^ + 

| GA-GE | 28 
1 ; x 



Displacement! Field 
Dec. Hex. J Name 




4 

8 

12 

L 



I DFPLUPT 

I 
4 |DFPLECT 

I 

I 
8 I DFPLECB 



C | DFPLDFPB 

I 
x 



Size in 
Bytes 



Contents 



Address of User Profile Table (UPT) . 

Address of Environment Control Table 
(ECT). 

Address of calling program's Event 
Cont rol Block ( ECB ) . 

Address of Default Parameter Block 
(DFPB) . 



I/O PARAMETER LIST (IOPL) 

Size: 16 Bytes 

Created by: Default (IKJEHDEF) using mapping macro IKJIOPL 

Updated by: N/A 

Used by: I/O Service Routines (IKJPUTL and IKJPTGT) 

Contents: Parameter List for I/O Service Routines 



j Displacement j Field jsize in| 
j Dec. Hex. j Name | Bytes | 



r t 1 

| Flowcharts | Operation 

| | Diagrams 
|. + 

| GA-GE | 28 
J. -L 1 



Contents 





i 

i 

I 
| 12 

I 





4 

8 



| IOPLUPT 

I 

| IOPLECT 

I 

| IOPLECB 



C | IOPLIOPB 

I 
J. 



4 
4 
4 
4 



(Pointer to UPT. 

I 

1 Pointer to ECT. 



J 



| Pointer to Command Processor's ECB. 

I 

| Pointer to I/O Service Routine 

| Parameter Block. 

L . J 



5 
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Section 6: Diagnostic Aids 



This section includes the following information: 

• Default Register usage chart. Figure 39. 

• Default Service Routine messages, Figure 40. 

• Default Service Routine Return Codes, Figure 41. 



| Register J Name l Use 

| | RO | Work register 

|. + + . 

| 1 | Rl | Parameter register and work register 

j. + + 

| 2 | R2 (Work register 

j. + + 

| 3 | R3 | Work register 

I- + + 

| 4 | R4 | Work register 

^ + — + 

| 5 | R5 | Work register 

| 6 | R6 [contains address of Default Parameter Block 

| 7 | R7 J Not used 

V + + 

| 8 ] R8 | Work register 

I + + 

| 9 | R9 | Work register 

j 10 | RlOjWork register 

| 11 | Rll|Work register 

| 12 | Rl2|Base register for Default 

V + + 

I 13 | R13 | Save area register and DSECT base register 

| 14 | R14|Link register 

j . + + ., 

| 15 | R15 | Branch and return code register 

L JL X 

Figure 39. Register Usage: Default Service Routine 
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I.D. 



i 

4 



Message Text 



IKJ58600I 
IKJ58600I 
IKJ58600I 

IKJ58601A 
♦IKJ58601A 



IKJ58602I 

IKJ58603A 
♦IKJ58603A 

*IKJ58603A 



IKJ58604A 
♦IKJ58604A 



IKJ58605I 

IKJ58606A 
♦IKJ58606A 



IKJ58607I 
IKJ58608A 



IKJ58609I 
♦IKJ58609I 
♦IKJ58609I 
♦IKJ58609I 

IKJ58610I 



QUALIFIERS FOR DATA SET dsname ARE 
xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx 
xxxxxxxx 

ENTER QUALIFIER- 
DATA SET NAME WAS NOT FULLY QUALIFIED. ENTER DESIRED 
QUALIFIER FROM ABOVE LIST- 
INVALID QUALIFIER xxxxxxxx 

REENTER- 

ONLY QUALIFIERS LISTED ARE VALID QUALIFIERS FOR THIS DATA 
SET NAME, REENTER DESIRED QUALIFIER FROM ABOVE LIST- 
QUALIFIERS CONTAIN FROM 1 TO 8 ALPHANUMERIC CHARACTER. 
REENTER- 

ENTER OLD OR NEW QUALIFIER- 
DATA SET NAME WAS NOT FULLY QUALIFIED. ENTER NEW QUALIFIER 
OR ONE FROM ABOVE LIST- 
DATA SET NAME dsname NOT COMPLETE 

ENTER QUALIFIER FOR dsname- 

DATA SET NAME WAS NOT FULLY QUALIFIED. ENTER NEW 
QUALIFIER- 
DATA SET dsname IS ABOUT TO BE REUSED 

ENTER CARRIER RETURN TO CONTINUE OR ATTENTION TO RESPECIFY 
COMMAND- 

data set name dsname CANNOT BE RESOLVED, SYSTEM ERROR+ 
PUTLINE ERROR CODE xxxx 
PUTGET ERROR CODE XXXX 
LOCATE ERROR CODE xxxx 

DATA SET NAME dsname NOT FULLY QUALIFIED 



Note : Lower case letters represent inserted information- 



Figure 40. Messages: Default Service Routine 



E 
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r t 1 

| Return | 

| Code | Meaning of Return Code 

| (Dec.) | 

L J. _ 


r~ 1 

Possible Return Code by 
Entry Code 


r r 
X'OO 1 


r i 
X , 04 l 


r i 
X f 08 f 


r i 
X^C 1 


r t 1 

1 _ 1 .,,.., - -H 


X 


X 


X 


X 

L J 


r^ t i 
| 4 |Unable to obtain qualifier from 

1 | terminal user. (PUTLINE or PUTGET 
| | error) . 

1 1 . .. J 




X 




X 


r t ^ .....,_ ..... -j 
| 8 |With qualifiers added , data set length 
| |is greater than 44 bytes. 

1 4- -I 


X 


X 


X 


X 


r t 1 
| 12 | Permanent I/O error in the system 

| | catalog, catalog data set not 

j (available, or syntax error in data set 

| |name. (The LOCATE return code was 

1 |x'04 f , x*m\ or x'is 1 .) 


X 


X 


X 


X 


i ~" 1 — ~ 1 

| 16 |Data set exits at some level of index 
j | other than the lowest index level 
| (specified. (The LOCATE return code was 
| IX'IO'). 


X 


X 


X 


X 

J 


r^ t i 

| 20 |One of the data set names was not 

I | found. (LOCATE Return Code of X^ 1 .) 


X 


X 


X 


X 


r~ T 

| 24 (Attention interruption occurred. 

,. + 

| 28 | Invalid parameter: 

| | • Invalid entry code, 

1 | • Data set length not halfword 

| | aligned, 

j | • Data set length greater than 44 

| | bytes , or 

j 1 • Data set length of 0, except with 

| | entry code of X'OO 1 . 

j. + H 

| 32 (Prompting is required to qualify data 

| |set name. 

1 4- 4 


X 
X 


X 
X 


X 
X 

X 


X 
X 


r T 1 
( 36 | No qualifiers found. (LOCATE return 
| | code X^C 1 .) 


X 


X 


X 


X 



Figure 41. Return Codes: Default Service Routine 



— j 
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Part 6: Catalog Information Routine 



E 
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Section 1: Introduction 



This description of the Catalog Information Routine assumes that the 
reader has a knowledge of the information contained in the IBM 
System/360 Operating System: Catalog Management, Program Logic Manual , 
GY28-6606. 

The Catalog Information Routine (IKJEHCIR) retrieves information from 
the System Catalog • This information may include data set name, index 
name, control volume address, or volume ID. 



A fully gualified data set name has three fields: 
set name, and a descriptive qualifier. For example: 



a userid, a data 



SMITH. ACCTS. DATA 



Userid ( identification qualifier ) 



Data set name (supplied by terminal user)- 
Descriptive qualifier 



For a more detailed description of data set naming conventions, refer 
to IBM System/360 Operating System: Time Sharing Option, Command 
Language Reference , GC28-6732. 

An index name is the name as found in one of the fields of the fully 
qualified data set name. The system catalog is logically divided into 
levels of indexes as follows: 



SMITH 



-^v 





r 

ACCTS 






1 
XXX 






i 






1 




{ 




~~1 


f 




1 


DATA 




BBB 


YYY 




zzz 



> Levels of Index 



A control volume address is the location of any direct access volume 
which contains a portion of the system catalog. 

Tne Volume ID is the volume serial number (VOLSER) of an area within 
auxiliary storage t independently accessed and identified. 

The routine that calls IKJEHCIR must supply the userid and the data 
set name, or it must supply the address of the information requested. 
The Catalog Information Routine issues the LOCATE macro instruction to 
search the catalog and return an index block. An index block is a 
portion of the system catalog containing one or pointers to other index 
blocks or to data sets. 



m 
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The Catalog Information Routine then reads the index block, 
compresses and reformats the information that it contains, and returns 
the requested information to the caller o If additional information is 
available at this level of index, the caller is informed and given the 
address of the next index block. The calling routine may again call the 
Catalog Information Routine to retrieve an additional portion of the 
index by specifying this address. 

The Catalog Information Routine resides in SYSl.LINKLIB or in 
SYS1.CMDLIB and will execute in the user's foreground region with the 
protection key assigned to that region. An installation may choose to 
make the Catalog Information Routine resident in the TSO Link Pack Area 
(TSLPA) in the region assigned to the Time Sharing Control Task (TSCT) . 
The Catalog Information Routine requires about 800 bytes of main 
storage. 
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Section 2: Method of Operation 



Method of Operation Diagram 21 (f oldout) shows how the Catalog 
Information Routine (IKJEHCIR) obtains information from the System 
Catalog. 

The Catalog Information Routine is used in this way: 

• When the Default routine , or any other TSO problem program needs 
information from the System Catalog, it calls the Catalog 
Information Routine and passes , in register 1, the address of the 
Catalog Information Routine Parameter Block (CIRPARM) . 

• The first byte of CIRPARM contains an option code, which defines the 
service requested (for example, X'Ol 1 returns the lowest level 
qualifier associated with the data set name). 

• The Catalog Information Routine sets up a parameter block and 
invokes the LOCATE macro instruction. The LOCATE macro issues an 
SVC 26 to search the System Catalog. SVC 26 uses user id and data 
set name, or an address to search the System Catalog. LOCATE 
returns the requested information, which may be data set names, 
volume address, or volume ID, in the work space provided by the 
Catalog Information Routine. 

• On return from the LOCATE routine (IGG0CLC1), the Catalog 
Information Routine checks the validity of the returned information 
against the request, reformats the returned information, and returns 
to the caller. 

ENTRY TO CATALOG INFORMATION ROUTINE 

The Catalog Information Routine is invoked with a CALL or LINK macro 
instruction at entry point IKJEHCIR. At entry, register 1 points to the 
Catalog Information Routine parameter list (CIRPARM) . CIRPARM contains : 

• An option code requesting a particular service, see Figure 41 
Catalog Information Routine option codes, for options and resulting 
functions. 

• An address of the search argument. This search argument may be 
either : 

- A user id and a data set name, which are names of catalog index 
leve Is , or 

- A ttr, which is an address relative to the beginning of the 
system catalog. 

• An address of volume identification of a control volume — the 
volume containing a portion of the system catalog referred to by the 
relative address in the search argument. 

• Address of work area; this area is supplied by the calling program 

(on a double word boundary) . 

• Address of save area; this area is supplied by the calling program. 



The Catalog Information Routine returns to the calling program using a 
RETURN macro instruction. All registers except 15 are restored. At 
exit, register 15 contains a return code. (See Figure 43, Catalog 
Information Routine Return Codes.) 
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G 



Option 
Code 



Option 
Requested 



Response to Caller 



X'Ol* 



Data Set 
Name 



Returns all the lowest level qualifiers contained within one index block. 



07 



dsname 



1 8 

This nine-byte entry represents a lowest level data set name. 



02 



gdgname 



data 



This 16-byte list entry represents a generation data group (gdg). 
A generation data group is the entire collection of chronologically related data sets 
which can be referred to by the same data set name. For further discussion on 
generation data groups, refer to IBM System/360 Operating System Data 
Management Services, GC26-3746, The data field contains four bytes describing 

the characteristics of the group. This data field contains the following: 

Byte 1-2 Not used by Catalog Information Routine 

Byte 3-4 Count of generations currently in the index. 



X'02' 



Index 
Name 



Returns one lowest level qualifier 



00 dsname 



1 



This 12-byte list entry contains a data set name qualifier. The ttr points to the 
beginning of the index containing this data set name. 



X'04 1 



Control 
Volume 
Address 



Returns a listing of volumes containing portions of the system catalog associated with 
the search argument. 



ct 



code volserl 



seq 



X 



code volsern 



14 6 2 4 6 

ct — Number of volume serial numbers described. 

code — Four-byte device code. (Device code designations are shown in IBM 
System/360 System Programmer's Guide, GC28-6550.) 

volser — Volume serial number. 

seq — Sequence number, for tape devices. 



Figure 42. Option Codes: Catalog Information Routine (Part 1 of 2) 
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Option 
Code 



X'05' 



X'08 1 



X'FF 1 



Option 
Requested 



Control 
volume 
address 
and data 
set name. 



Volume ID 



Response to Caller 



Returns all the lowest level qualifiers contained within one index block and the address of the 
volume containing the associated block. 



08 


dsname 


ct 


code 


volserl 


seq 




code 


volsern 



1 8 14 6 2 4 

ct — Number of volume serial numbers described, 

code — Four-byte device code, 

volser — Volume serial number, 

seq — Sequence number, for tape devices. 

Return Volume Identification. 



04 


aliasname 


ttr 


truename 



1 



8 



8 



This 20-byte list entry represents an alias found in the system catalog. Aliases exist only in 
the volume index, which is the highest level index. The TTR points to the first block of the 
index. 



05 


dsname 


code 


volser 



18 4 6 

This 19-byte list entry represents a catalog volume pointer found in the volume index. The code 
identifies the device type on which the control volume might be mounted. (This field will be 
zero, if the catalog was constructed prior to Release 17). The volser identifies the control 
volume (CVOL). 



Termination list entry. 



FF 


ttr 


volser 



1 3 6 

This ten-byte list entry terminates every list regardless of options specified. If this list contains 
the end of an index, the ttr is zero; otherwise the ttr is the relative address of the next index 
block. The volser contains the volume identification of the volume containing the catalog 
being used. 



E 



figure 42. Option Codes; Catalog Information Routine (Part 2 of 2) 
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Section 3: Program Organization 



This section describes the program organization of the Catalog 
Information Routine. It includes : 

• Program Hierarchy 

• Program Descriptions 

• Flowcharts 

Program Hierarchy 

The Catalog Information Routine is contained in one load module, 
IKJEHCIR. As supplied with TSO, the Catalog Information Routine resides 
in SYS1.LINKLIB or in SYSl.CMDLIB, and requires about 800 bytes of main 
storage. 



Module Descriptions 

IJEHCIR 



I T 1 

| Flowcharts | Operation 
j Diagrams 



j. 

| HA-HC | 
_J -L- 



29 



-1 



j Entry 

j 

Registers at Entry 



| Entered at entry point IKJEHCIR. 



| 

Operation 



Register 1 contains the address of the Catalog 
Information routine parameter list (CIRPARM) . 



Obtains information from the system catalog. 
LOCATE macro instruction is issued: 



The 



| 

Major Subroutines 



• To find all the data set names contained 
within an index block. 

• To find the location of an index block. 

• To find the identification of the control 
volume that contains a given data set name. 



None. 



|I 

I'- 
ll 

I- 

I c 

h 

Exit: 
| 

Registers at Exit: 



—I 



Data Areas Created: 



None, 



Routines Called: 



None. 



-H 



System Macros Used: 



RETURN, SAVE, LOCATE (LOCATE issues SVC 26). 



Mapping Macros: 



None. 



-H 



Return to calling program. 



Register 15 contains a return code; see Figure 
44, Catalog Information routine return codes. 



546 Terminal Monitor Program (Release 21.6) 



Program Flowcharts 

This section contains program flowcharts for the Catalog Information 
Routine (IKJEHCIR) . 

CHART HA — IKJEHCIR 
CHART HB — IKJEHCIR 
CHART HC — IKJEHCIR 



G 
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CHART HA\ — IKJEHCIR 

Al 



( Enter from Caller J 



IKJEHCIR;,,; Bl 



(Establish 
Addressability 
Save 



C2 



>^Type LOCATEN 
>^ Required S 


TTR 


Put CAMLIST 
Code for 




Block Request 
in List 


jNAME 






J * Dl 






Put CAMLST 
Code for 
Name Request 
in List 












LOCATE 


El 






Issue LOCATE 
Macro 
(Pointing to 
Input List) 






( Error ExitRC=4J 






G4 



j-^( Error Exit RG=12\ 



(Normal ^ 

Return RC=0 J 



548 Terminal Monitor Program (Release 21.6) 



CHART HB — IKJEHCIR 



HB I From F5/HA 



*4 Error Exit RC = 




Move Code 07 
and Name to 
List 




H2 



Move Code 22 
Along With 
Name TTR and 
Flags to List 



C3 



Move Code FF 
Along With 
TTR and VOLSER 
to List 



Move Code 
00 Along With 
Name and 
TTR to List 



Move Code 08 
Along With 
Name and 
VOLSER to List 



* Generation Data Group- -A Chronologially Related Group 
of Data Sets Refered to by the Same Name. 



C4 



-^Normal Exit RC = oJ 
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CHART HC — IKJEHCIR 




From Hl/HC 



''Was All Option ^ Yes , 
Requested 




A3 




Move Code 01 
Along with 
Name and 
TTR to List 



Move Code 07 
and Name 
to List 



qp 




r$i 



C3 



Move Code 04 
Along with 
AL, AS, TTR and 
True Name to List 



Move Code 05, 
Name, 4 Bytes 
of 0's and 
VOLSER to List 



Yes 




Move Code 05, 
Name, Device 






Code and 
VOLSER to List 








' 



w 



qp 



v 
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Section 4: Directory 



This chart contains information to help you find the appropriate program description, 
flowchart, or assembly listing- It correlates information from three sources: 

• The source code. 

• The executable load modules. 
© This manual. 



Label 

H 

CHKTYPE 


| Load | Assembly | Control | 
Common| Module | Module j Section | 
Name | Name | Name | Name | 
+ + + _ + 

— | IKJEHCIR | IKJEHCIR j IKJEHCIR j 


CODE 00 


— 


| IKJEHCIR | IKJEHCIR | IKJEHCIR | 


DSENTRY 


— 


| IKJEHCIR | IKJEHCIR | IKJEHCIR | 


IKJEHCIR 


— 


| IKJEHCIR | IKJEHCIR | IKJEHCIR | 


INDEXPTR 


— 


| IKJEHCIR | IKJEHCIR | IKJEHCIR | 


""ATE 
VoLPTR 


— 


| IKJEHCIR | IKJEHCIR | IKJEHCIR | 


— 


| IKJEHCIR | IKJEHCIR | IKJEHCIR | 



Description 

Examine entry in catalog block. 

Process LOCATE return code of 
zero. 

Process data set entry. 

Control section name and program 
entry point. 

Process link or index entry. 

Issue LOCATE macro instruction. 

Process volume control block. 



JFlOW- 


Dia-| 


| chart 

4. 4- 


gram| 


t T T 

j HA | 29 | 


| HA 


29 | 


| HB 


29 | 


| HA 


29 | 


| HB 


29 | 


| HA 


29 | 


| HC 


29 | 
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Section 5: Data Areas 



This section describes the Catalog Information Routine Parameter List 
(CIRPARM) and the parameter list for LOCATE (CAM2) . The following 
information is included: 

• Size in bytes. 

• The routines that created it. 

• Displacements, size and contents. 

CATALOG INFORMATION ROUTINE PARAMETER LIST (CIRPARM) 

Size: 20 Bytes 

Constructed by: The Calling Program 

Updated by: None 

Used by: IKJEHCIR 

Contents: Addresses and control information for IKJEHCIR 







r t 1 

j Flowcharts | Operation) 
| | Diagrams | 

k + ^ 

|HA-HC | 29 | 

m .„. i „,„ i 1 


r t 

| Displacement! Field 

| Dec. Hex. |Name 

| |CIR0PT 


~ T 

|Size 
(Bytes 

-+ 

1 1 


in| | 
| Contents | 
4- J 


T 1 
| Opt ions used. See Figure 42. | 


| 1 1 | -- 


1 3 


|Not used. | 


| 4 4 |CIRSRCH 


1 4 


(Address of data set name or relative | 
| address. (This field is prefixed withj 
|a "1", if it contains a relative j 
(address. It is prefixed with a "0" if j 
j it contains the address of a data set | 
| name . ) j 


| 8 8 |CIRCVOL 


1 4 


(Address of volume ID of CVOL. (If notj 
(given, SYSRES is assumed.) j 


|12 C |CIRWA 


1 <* 


| Address of 265 byte work area, aligned | 
(on a double word boundary. | 


|16 10 |CIRSAVE 


1 4 


(Address of 72 byte save area. | 
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CAMLST BLOCK (CAM2) 

Size: 

Constructed by: 

Updated by: 

Used by: 

Contents : 



16 Bytes 

IKJEHCIR 

IKJEHCIR 

SVC 26 

Addresses and control information for SVC 26 
(Parameter list for input to SVC 26, which is 
issued by LOCATE macro instruction) 



| Flowcharts j Operation 
| | Diagrams 



|HA-HC j 29 

-J. -L 



H 



Displacement 
Dec* Hex, 



Field 
Name 



Size in 
Bytes 



Contents 



1 
2 
3 

a 



12 



h 



l 

2 
3 



l 
l 
l 
a 



Option flag 1. 

X I C2' Search by Block 

X'ca 1 Search by Name 

Option flag 2*. 

Option flag 3*. 

Not used by IKJEHCIR (0). 

Pointer to data set name search 
argument. 

Pointer to the control volume serial 
number. 

Pointer to work area, aligned on a 
double word boundary. 



1 

IKJEHCIR to indicate a request to locate an entry 



♦Set to all zeros by 
in the catalog. 



E 
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Section 6: Diagnostic Aids 



This section contains: 

• Catalog Information Routine Register usage chart. 

• Catalog Information Routine return codes. 

• LOCATE macro instruction return codes. 



r t t 

Register | Name 



RO 



Use 



Not used. 



—I 



Rl 



Points to current entry in work area. 



2 
3 



R2 
R3 



Points to current entry in block. 
Work register. 






-H 



R4 



Contains parameter list address. 



■H 
-~ f 
-H 



R5 



Contains option bits. 



Work register. 



6 
7 
8 



R6 
R7 



Points to LOCATE work area. 



R8 



Not used. 



R9 



Not used. 



10 
11 



RIO 



Not used. 






Rll 



Main base register. 



12 
13 






14 



R12 
R13 
R14 



Not used. 



Save area address. 



Return register. 



— I 



—I 



15 



R15 



Return code. 



Figure 42. Register Usage: Catalog Information Routine 
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i r 

Return 
Code 


4 



Meaning 

Successful completion of the request. 

The LOCATE macro instruction has failed- The LOCATE return 
code will be stored in the first word of the user's parameter 
list. The Catalog Information Routine interprets and handles 
LOCATE return codes 00 and 12 — LOCATE return codes are shown 
in Figure 45. 

Volumes alone were requested (entry code X'04 f ) f but neither a 
dsname or a ttr to a volume control block was given, and an 
index block was found instead. The index block that was found 
is in the work area. 

12 | Volumes were returned by LOCATE, indicating either a dsname 
(fully qualified) or a ttr was passed in the parameter list, 
but options other than volumes were requested. The list of the 
volumes returned by LOCATE is in the work area. 
l x 

Figure 44. Return Codes: Catalog Information Routine 



I T 

Return 
Code 




4 

8 
12 
16 

20 
24 
28 

32 



Meaning 



Successful completion of the request. 

Either the required control volume was not mounted or the 
specified volume does not contain a catalog data set (SYSCATL) . 

The data set name qualifier was not found. 

Success — but more names are available. 

A data set resides at a higher level of index than was 
requested. For example: data set A.B.C exists but A.B.C.D was 
requested. 

A syntax error exists in the data set name. 

A permanent I/O error was found when processing the catalog. 

Relative track address supplied is out of the SYSCTLG data set 
extents. 

Invalid work area pointer. 



Figure 45. Return Codes: LOCATE (IGG0CLC1) 
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Glossary 



The following terms are defined as they are 
used in this manual. If you do not find 
the term you are looking for, refer to the 
Index or to the IBM Data Processing 
Gloss ary , GC20-1699. 



abnormal end of task (ABEND) : Termination 
of a task prior to normal completion 
because of an error condition. 

address-constant ; A number, or a symbol 
representing a number, used in calculating 
storage addresses. 

alias: An alternate name for a particular 
member of a partitioned data set. 



background ; In TSO, the environment in 
which jobs submitted through the SUBMIT 
command or SYS IN are executed. One job 
step at a time is assigned to a region of 
main storage, and remains in storage to 
completion. Contrast with foreground. 



backgr ound job ; In TSO, a job entered 
through the SUBMIT command or SYSIN. 
Contrast with foreground job. 

background reader ; A system task started 
by the operator to process 
foreground-initiated background jobs. 
Output is identical to the normal 
reader /interpreter output. 



allocate : To assign a resource for use in break : See receive interruption, 
performing a specific task. 

allocation of data sets : The process of 
defining a data set and defining auxiliary 
storage space. See also dynamic 
allocation. 

alphameric characters : The characters A 
through Z, digits through 9, and # f $, 
and a . 



ATTACH : A macro instruction that causes 
the control program to create a new task 
and indicates the entry point in the 
program to be given control when the new 
task becomes active. 

attention exit routine : A routine that 
receives control when an attention 
interruption is received by the system. 

attention interruption : An interruption of 
instruction execution caused by a remote 
terminal user hitting the attention key. 
See also simulated attention. 

attention key : A function key on remote 
terminals that causes an interruption of 
execution by the CPU. 

Attention Scheduler : A part of the Region 
Control Task that gets control when the 
terminal user causes an attention 
interruption. The Attention Scheduler 
passes control to the appropriate attention 
exit routine. 

attributes : See user attributes. 

auxiliary storage : Data storage other than 
main storage (for example, storage on tape 
or direct access devices). 



broadcast data set : A system data set 
containing messages and notices from the 
system operator, adminstrators, and 
terminal users. 

buffer : See main storage buffer, command 
buffer. 

byte : The representation of a character; 
eight binary digits (bits) operated upon as 
a unit. 

catalog : 

1. A collection of data set indexes that 
are used by the control program to 
locate a volume containing a specific 
data set. 

2. To include the volume identification 
of a data set in the catalog. 

cataloged data set : A data set whose name 
and location are stored in the system 
catalog. 

Catalog Information Routine : A routine 
that retrieves information from the system 
catalog for any TSO command processor. 

cataloged procedure : A set of job control 
statements that has been placed in a data 
set named SYS1.PR0CLIB and that can be 
retrieved by naming it in a job control 
language (JCL) execute (EXEC) statement. 

character : A letter g digit, or other 
symbol that is used as part of the 
organization, control, or representation of 
data. For example, A,B,C,0,1,2, ,+,*,etc. 

character- deletion character : A character 
within a line of terminal input specifying 
that it and the immediately preceding 



B 
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character are to be removed from the line 
by a scanning and editing routine. 



character string : 
characters. 



Any sequence of 



command ; Under TSO, a request from a 
remote terminal for the execution of a 
particular program, called a command 
processor. The command processor is in a 
commmand library under the command name. 
Any subsequent commands processed directly 
by that command processor are called 
subcommands. 

command buffer : An area of main storage 
that is assumed to contain a TSO command 
submitted JDy the terminal user. 

command language : The set of commands , 
subcommands, and operands recognized by 
TSO. 

command library : A partitioned data set 
consisting of command processor programs. 
A user command library can be concatenated 
to the system command library. 

command name : the first term in a command, 
usually followed by operands. 

command procedure : A data set or a member 
of a partitioned data set containing TSO 
commands, to be performed sequentially by 
the EXEC command. 

command processor : A problem program 
executed as the result of entering a 
command at the terminal. Any problem 
program can be defined as a command 
processor by assigning a command name to 
the program and including the program in a 
command library. 

Command Scan : A TSO service routine that 
searches the Command Buffer for question 
mark, command name, or null line. If 
syntax checking is requested. Command Scan 
checks the command name to be sure that it 
starts with an alphabetic character and 
contains no more than 8 alphanumeric 
characters. 

control block : A storage area that 
contains a particular type of information 
used by the operating system to control the 
use of system resources. 

control program : All the routines in the 
operating system that contribute to the 
management of resources, programs, and data 
and implement the data. 



control section (CSECT) 



The smallest 



which are to be loaded into contiguous main 
storage addresses for execution. 

control volume : A volume that contains one 
or more indexes of the catalog. 

CP: See "command processor. " 

PAIR : See Dynamic Allocation Interface 
Rout ine . 

data definition name (ddname) : A name 
appearing in the data control block 
assigned to a program; the name is 
specified in the name field of a data 
definition (DD) statement. 

data management : A general term that 
collectively describes those functions of 
the control program that provide access to 
data sets, enforce data set conventions, 
and regulate the use of input/output 
devices. 



See dynamic 



data set allocation, dynamic : 
allocation. 

data set catalog : See catalog. 



Data Set Extension (DSE) : A control block 
that contains information about a terminal 
user's data sets, including the 
relationship between DDNAMEs and DSNAMEs. 

data set organization : The arrangement by 
data management of information in a data 
set. For example, sequential orgainzation 
or partitioned organization. 

data set name : The term or phrase used to 
identify a data set. See also qualified 
name. 



DDNAME : 



See data definition name. 



separately relocatable unit of a program; 
that group of coding specified by the 
programmer to be an entity, all elements of 



default : See default value. 

Default : A TSO service routine that 
constructs a fully qualified data set name 
when provided a partially qualified data 
set name by the calling routine. 

Default Parameter Block (DFPB) : An area of 
main storage used to contain codes and 
addresses required when calling the Default 
service routine. 

default value : the choice among exclusive 
alternatives made by the system when no 
explicit choice is specified by the user. 

delimiter : A character used to group 
and/or separate fields in a line of input. 

device type : The general name for a 
device, specified at system generation. 
For example, 2311 or 2400. 
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DSE: See "Data Set Extension." 

DSNAME ; See "data set name." 

dynamic allocation ; The process of 
defining a data set and allocating 
auxiliary storage space for it during job 
step execution rather than before job step 
execution. 

Dynamic Allocation Interface Routine 
(PAIR) : A TSO service routine that 
performs various data management functions. 



ECT: 



See "Environment Control Block." 



IKJSCAN: The load module name for the 
Command Scan service routine. 

informational message : Output on a 
terminal that tells the terminal user the 
status of the system and of his terminal 
session. 

index name : In TSO, one of the fields of a 
qualified data set name. 

Input Stack : A push-down list of sources 
of input for GETLINE and PUTGET. Possible 
sources are the terminal or an in-storage 
list. 



Environment Control Block (ECT) : A control in-storage list : A chain of input lines in 

main storage, such as commands in an EXEC 
procedure, that are used in place of 
terminal input. 

interruption : A transfer of CPU control to 
the control program of the Operating 
System. The transfer is initiated 
automatically by the computing system or by 
a problem state program through the 
execution of a supervisor call (SVC) 
instruction. The transfer of control 
occurs in such a way that control can later 
be restored to the interrupted program, or, 
in systems that perform more than one task 
at a time, to a different program. 

I/O Service Routine List (IOSRL) : A 
control block which contains the address of 
the first element (bottom element) and the 
most recently added element (top element) 
of the input stack. The GETLINE and PUTGET 
service routines can refer to the IOSRL, 
but only the STACK service routine can 
update it. 



block that contains information about the 
user's environment in the foreground 
region. 

foreground : In TSO, the environment in 
which programs are swapped in and out of 
main storage to allow CPU time to be shared 
among terminal users . All command 
processor programs execute in the 
foreground. Contrast with background. 

foreground job : In TSO, any job executing 
in a foreground region, such as a command 
processor or a terminal user's program. 
Contrast with background job. 

GETLINE : A TSO service routine used by 
command processors to obtain input . 

group name : The name for a particular 
collection of devices, specified at the 
time the system is generated. For example, 
SYSDA or TAPE. 

HELP command : A TSO command that provides 
the terminal user with reference 
information on command and subcommand 
syntax, function, and usage. 

IKJDAIR : An alias load module name for the 
Dynamic Allocation Interface Routine. 

IKJEHCIR 2 The load module name for the 
Catalog Information Routine. 

IKJDEFLT : An alias load module name for 
the Default service routine. 

IKJEHDEF: The load module name for the 
Default service routine. 

IKJPARS i* The load module name for the 
Parse service routine. 

IKJPUTL : The entry name for the PUTLINE 
service routine. 

IKJPTGT: The load module name for the 
STACK, GETLINE, PUTLINE and PUTGET service 
routines. The entry name for the PUTGET 
service routine. 



IOSRL: 



See I/O Service Routine List. 



job control statement : Any one of the 
control statements in the input job stream 
that identifies a job or defines its 
requirements. 

job definition : A series of job control 
statements that define a job. 

job management : A major function of the 
operating system involving the reading and 
interpreting of job definitions, the 
scheduling of jobs, the initiation and 
termination of jobs and job steps, and the 
recording of job output data. 

keyword parameter : A command operand that 
consists of a specific character string 
such as FORTLIB or PRINT. See also 
positional parameter. 

line deletion character : A terminal 
character that specifies that it and all 
preceding characters are to be deleted from 
a line of terminal input. 



E 



Glossary 559 



line : A line of one or more characters 
typed at a terminal. See also logical 
line, physical line. 

load : To place a program into main storage 
so that it can be executed. 

load module : The output of the linkage 
editor; a program in a form suitable for 
loading into main storage for execution. 

logical line : One or more lines typed at a 
terminal and treated as a unit. A logical 
line may consist of one or more physical 
lines where the symbol W - M indicates 
continuation, see also physical line. 

logical record : A record that is defined 
in terms of the information it contains 
rather than by its physical qualities. 

LOGON/LOGOFF Scheduler : The TSO control 
program routine that initiates and 
terminates a terminal session. 

main storage buffer : An area of main 
storage that is temporarily reserved for 
use in performing an input/output 
operation. 

mode message : A message that requests the 
terminal user to enter a line of input. 

mu It i- level message : A chain of 
informational messages. The first message 
is the most general; the last message, the 
most detailed. 



Output Line Descriptor (OLD) : An area of 
main storage used to describe information 
to be sent to the terminal by the PUT LINE 
and PUTGET service routines. 

output writer : The part of the job 
scheduler that contirols the writing of job 
output data. 

Parameter Control Entry (PCE) : An entry in 
the Parameter Control List (PCL) . In 
general, each PCE describes an acceptable 
TSO command parameter or marks the 
beginning or end of a field. Each PCE is 
created by a Parse macro instruction as 
shown in Table 6. 

Parameter Control List (PCL) : A data area 
that contains control information for the 
Parse service routine. Each element in the 
list is called a Parameter Control Entry 
(PCE) . 

Parameter Descriptor Entry (PDE) : An entry 
in the Parameter Descriptor List (PDL) . In 
general, each PDE describes a TSO command 
parameter entered by the terminal user or 
supplied by default. 

Parameter Descriptor List (PDL) : A data 
area that describes the TSO command 
parameters entered by a terminal user or 
supplied by default. Created by the Parse 
service routine. Each element in the list 
is called a Parameter Descriptor Entry 
(PDE). 



multi-line data : A chain of data lines. 
PUTLINE sends one line after another to the 
terminal until end-of -chain is reached. 

national characters : The characters #, $, 
and a) . 

OLD : See Output Line Descriptor. 

operand : In the TSO command language, 
information entered with a command name to 
define the data on which a command 
processor operates and to control the 
execution of the command processor. Some 
operands are positional, identified by 
their sequence in the command input line. 
Other operands are identified by keywords. 

output buffer : An area of main storage 
used to store a data block before it is 
transferred to an output device. 

output class : Any one of up to 36 
different output data classes, defined at 
an installation, to which output data can 
be assigned. 

output device : A machine (such as a 
printer, terminal, or tape drive) that will 
accept the output from the system. 



PCE: See Parameter Control Entry. 

PCL : See Parameter Control List. 

PDE : See Parameter Descriptor Entry- 

PDL : See Parameter Descriptor List. 

Parse : A TSO service routine that searches 
the Command Buffer for TSO command 
parameters , checks them for correct syntax, 
and optionally presents them to a 
user-supplied validity check exit routine. 

partitioned data set : A data set that is 
stored in direct access storage and can be 
cataloged like any other data set. It is 
divided into independent partitions called 
members , each of which normally contains a 
program or part of a program. 

password : A one- to eight-character symbol 
assigned to a user that he can be required 
to supply at LOGON. The password is 
confidential, as opposed to the user 
identification. Users can also assign 
passwords to data sets. 

physical line : A line typed at a terminal. 
See also logical line. 
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physical record : A record that is defined 
in terms of physical qualities rather than 
by the information it contains. (See 
record.) 



qualified name : A data set name that is 
composed of two or more names separated by 
periods. (For example, MOORE. SALES. JUNE. ) 



pos it i onal par amet er : A command operand 
which must appear in a certain order, in 
relation to other operands. Contrast with 
keyword parameter. 



qualifier : In TSO, the lowest level 
identifier of a qualified name. 



RCT: See Region Control Task. 



POST/ WAIT : A POST macro instruction 
followed by a WAIT macro instruction. The 
purpose is to cause a task switch from the 
task, issuing the POST/WAIT to the task 
whose ECB is posted. The task switch does 
not occur until after the WAIT is issued. 

procedure list : An in-storage list that 
contains TSO commands. 

problem program : A program which executes 
in the problem state, is restricted from 
executing privileged instructions, and 
executes from main storage with a nonzero 
protection key. 

procedure : See cataloged procedure. 

profile : See user profile. 

program status word : A doubleword in main 
storage that controls the order in which 
instructions are executed. 

prompting : A system function that helps a 
terminal user by requesting him to supply 
operands necessary to continue processing. 

prompting message : A message that requests 
the terminal to enter another line of 
input, either a TSO command parameter or 
data. 

protection key : An indicator associated 
with a task which appears in the program 
status word whenever the task is in 
control, and which must match the storage 
keys of all storage blocks the task is to 
use. 

PSCB : See Protected Step Control Block. 

PSW (program status word) : A doubleword in 
main storage that controls the order in 
which instructions are executed. 



PUTGET: A TSO service routine that sends a 
message to the terminal and obtains a line 
of input from the current source of input. 

PUTLINE : A TSO service routine that sends 
output to the terminal. PUTLINE 
selectively puts but messages according to 
whether or not a user has suppressed 
prompting or is executing a command 
procedure. 



reader /interpreter : A job scheduler 
function that services an input job stream. 

receive interruption : The interruption of 
a transmission to a terminal by a higher 
priority transmission from the terminal. 
Synonymous with break. 

record : One or more data fields that 
represent an organized body of related 
data, such as all of the basic accounting 
information concerning a single sales 
transaction. (See also logical record and 
physical record.) 

reenterable : The attribute or 
characteristic of a load module allows the 
same copy of the module in main storage to 
be used by several tasks concurrently. 

region : An area of main storage allocated 
to a job step and assigned a unique storage 
protection key. Time sharing jobs share 
regions. Each job occupies a region 
briefly, then is swapped out to auxiliary 
storage and another job is swapped into the 
vacated main storage area for execution. 
The jobs are swapped in and out until they 
are completed. 

Region Control Task (RCT) : The TSO control 
program routine handling quiesce/restore 
and LOGON/LOGOFF. There is one RCT for 
each active foreground region. 

return code : A number placed in a 
designated register at the completion of a 
program. 

self-defining delimiter v Any character 
appearing in the first position of certain 
character strings in the TSO command 
language. A repetition of the character 
within the string is interpreted as a 
delimiter. 

separator : A delimiter used to separate 
fields in ah input" line to the system. 



s imu 1 at e d a 1 1 en t ion : 
allows terminals with 
interrupt process ing . 
queried (for a specif 
meaning " "attention 1 ' 
number of seconds of 
execution or after a 
lines of consecutive^ 



A function that 
but attention keys to 

The terminal is 
ied character string 
) after a specified 
u'ni nt er fu pted 
specified number of 
output* 
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STACK: 



A TSO service routine that 



manipulates the Input Stack. 

STAE (Specify Task Asynchronous Exit) : A 
macro instruction specifying a routine to 
receive control in the event of the issuing 
task's abnormal termination (ABEND), 

STAI (Subtask ABEND Intercept) ; A keyword 
of the ATTACH macro instruction specifying 
a routine to receive control after the 
abnormal termination of a subtask. 



STATUS: 



A system macro instruction and its 



associated SVC routine that makes one or 
more tasks dispatchable or 
non- dis pat chabl e . 



STATUS START : The form of the STATUS macro 
instruction that makes one or more tasks 
dispatchable . 



STATUS STOP : The form of the STATUS macro 
that makes a task non-dispatchable. 

storage list : In TS0 f an in- storage list 
that contains data. Contrast with 
procedure list. 

subcommand : In TSO, an explicit request 
for a particular operation to be performed 
within the scope of a command processor. 

SYS1.CMDLIB : The system command library. 
A partitioned data set that contains, among 
other things, the TSO command processors. 
A user data set may be concatenated to 
SYSl.CJyiDLIB. 

SYS1.LINKLIB : The system linkage library. 
A partitioned data set that contains 
often-used routines. The contents of the 
linkage library are placed in main storage 
during initial program loading (IPL) . 

SYS1.PR0CLIB : A system data set containing 
cataloged procedures . 

task : A unit of work for the central 
processing unit defined by the control 
program. 



See Telecommunications Access 



TCAM : 
Method . 



Task Control Block (TCB) : A system control 
block that contains task-related 
information. 

TCB : See Task Control Block. 

Telecommunications Access Method (TCAM) : A 
generalized terminal I/O support package, 
providing application program independence 
of terminal characteristics. 



terminal : A device resembling a typewriter 
that is used to communicate with the 
system. 

terminal job : A foreground job, a session 
from LOGON to LOGOFF. Also used to refer 
to the main storage region assigned to a 
user and associated system control blocks. 

Terminal Job Identification (TJID) : A 
two- byte identification assigned to each 
terminal job. 

Terminal Monitor Program (TMP) : A program 
that accepts and interprets commands from 
the terminal, and causes the appropriate 
command processors to be scheduled and 
executed. 

terminal user: See user. 



TGET : An I/O macro instruction used by TSO 
problem programs to obtain a line of input 
from the terminal. Used by the GETLINE and 
PUTGET service routines. 

time sharing : The concurrent sharing of 
the hardware and information resources of a 
data processing installation among one or 
more users who may be located at remote 
terminals. 

Time Sharing Control Task (TSC) : A TSO 
system task that handles system 
initialization, allocation of time-shared 
regions, the swapping of user programs into 
and out of main storage, and general 
control if the time- sharing operation. 



TJID : See Terminal Job Identification. 
TMP : See Terminal Monitor Program. 

TPUT : An I/O macro instruction used by TSO 
problem programs to send a line of output 
to the terminal. Used by the PUTLINE and 
PUTGET service routines. 

TSC : See Time Sharing Control Task. 

ttr : A pointer in a partitioned data set 
directory to the first block of a member on 
a direct access device. The w tt" 
represents the relative track from the 
beginning of the data set. The w r M 
represents the relative block number on 
that track. 

unit address : The symbolic location of an 
input/output device. 

UPT : See User Profile Table. 

user : In TSO, anyone with an entry in the 
User Attribute Data Set; anyone eligible to 
log on. 
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user attributes : A set of parameters in 
the User Attribute Data Set (UADS) . The 
parameters describe the user to the system; 
for example, whether he is authorized to 
use the ACCOUNT command, and what size main 
storage region he is to be assigned. 

User Attribute Data Set (UADS) ; A 
partitioned data set with a member for each 
authorized system user. Each member 
contains the appropriate passwords, user 
identifications, account numbers, logon 
procedure names, and user characteristics 
defining the user profile. 

USERID: See user identification. 



User Profile Table : A table of user 
attributes kept for each active user, built 
by the Logon/Logoff Scheduler from 
information in the LOGON command, the UADS, 
and the user logon procedure. 



VTOC: See Volume Table of Contents. 



volume: A area of a recording medium that 
is serviced by a single read/write 
mechanism whose operation is entirely 
independent of any other read/write 
mechanism. 



user identification (USERID) : A one- to 
seven- character symbol identifying each 
system user. 

user profile : The set of characteristics 
that describe the user to the system. See 
also User Profile Table. 



Volume Table of Contents (VTOC) : A table 
of information in a direct access volume 
that defines the sets of data and 
unassigned space in the volume and 
indicates where they are located. 
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Index 



Indexes to Program Logic Manuals are 
consolidated in the publication IBM 
System/360 Operating System: Program Logic 
Manual Master Index , GY28-6717. For 
additional information about any subject 
listed below , refer to other publications 
listed for the same subject in the Master 
Index. 



ADDRESS 

parameter type 155 
allocate a data set 

by ddname 331,615 

by dsname 331,615 
allocate a SYSOUT data set 331,615 
allocating data sets 33 4 
ATRCB (see Attribute control block) 
attention exit routine 

in command processor 29, 583 

in Terminal Monitor Program 29,37,583 
attention request 

handled by command processor 29/583 

handled by Terminal Monitor Program 
29,583 
attention scheduler 29,583 
Attribute control block 

format 443-444 

use 336-337 



bottom element (see Input Stack) 



CAL (see Candidate Attribute List) 
CAM2 (see LOCATE Parameter List) 
Candidate Attribute List (CAL) 

format 445 

use 623 
Catalog Information Routine 

description 541 

entry codes 544-545 

hierarchy 546 

operation 543,633 

parameters 543 

register usage 554 

return codes 555 
Catalog Information Routine Parameter List 
(CIRPARM) 

format 532,552 

use 535,633 
CATLST (see Concatenate List) 
CATTAB (see Concatenate Table) 
CBUF (see Command Buffer) 
character types 

recognized by Command Scan service 
routine 143 

recognized by Parse service routine 143 
CIRPARM (see Catalog Information Routine 

Parameter List) 
Command Buffer 

format 58 



use by Command Scan service routine 142 

use by Parse service routine 144-159 

use by PUTGET service routine 82 

use by Terminal Monitor Program 28 
command library 28,581 
command mode 

in PUTGET service routine 82,597 
command processors 

list of 20-21 

functions of 20-21 

termination of 26,27 

ways they receive control 20-21 
Command Processor Parameter List (CPPL) 

format 5 8 

use 28,581 
Command Scan Output Area (CSOA) 

format 275 

use 142,603 
Command Scan Parameter List (CSPL) 

format 274 

use by Command Scan service routine 
141,603 

use by Default service routine 533,631i 

use by Terminal Monitor Program 28,581 
Command Scan service routine 

description 139 

hierarchy 162 

operation 140-160,603 

parameters 140 

register usage 322 

return codes 323 
Command Scan Workspace (CSWORK) 

format 276 

use 603 
concatenate data sets 331,335,623 
Concatenate List (CATLST) 

format 446 

use 623 
Concatenate Table (CATTAB) 

format 447 

use 623 
CONSTANT 

parameter type 152-153 
control codes 

to Default service routine 521 
| converting data set attributes 335 
CPPL (see Command Processor Parameter List) 
CSOA (see Command Scan Output Area) 
CSPL (see Command Scan Parameter List) 
CSPLARM (see also Command Scan Parameter 
List) 

format 533 

use by Default service routine 533^631 



DAIRACB (see DAIR attribute control block) 
DAIR attribute control block (DAIRACB) 

format 44 8 

use 336-337 
DAIR Parameter Block (DAPB) 

format 

code X'OO' 453-454 
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DAIR Parameter Block (DAPB) (Cont'd) 
code X'04' 455-456 
code X'08' 457-459 
code X'OC 460 
code X'lO 1 461 
code X'14' 462 
code X'18' 463-464 
code X"1C 465 
code X'24 1 466-468 
code X'28 1 469 
code X'2C' 470 
code X a 30" 471-472 
code X'34 1 473 
use 330,615 
DAIR Parameter List (DAPL) 
format 476 
use 330,615 
DAIR service routine (see Dynamic 

Allocation Interface Routine) 
DAIR Work Area (DAIRWA) 
format 450-452 
use 329 
Data Set Extension (DSE) 
format 474-476 
use 331,627 
data set name 

fully qualified 519,541 
DAWT (see Dynamic Allocation Work Table) 
DAWTVARY (see Dynamic Allocation Work 
Table, Variable Area) 
| deconcatenating data sets 335-336 
Default Parameter Block (DFPB) 
format 534 
use 631 
Default Parameter List (DFPL) 
format 535 
use 631 
Default service routine 
control codes 521 
description 519 
entry codes 521 
hierarchy 523 
messages 537 
operation 520- 522, 631 
parameters 520 
register usage 536 
return codes 538 
DELIMITER 

parameter type 147 
DEQ (see Dequeue macro instruction) 
Dequeue macro instruction (DEQ) 
parameter list for 49 6 
use of 617 
DFPB (see Default Parameter Block) 
DFPL (see Default Parameter List) 
DSE (see Data Set Extension) 
DSNAME 

parameter type 151 
DSTHING 

parameter type 152 
Dynamic Allocation Interface Routine (DAIR) 
description 327 
functions 331 
hierarchy 338-340 
operation 329-331, 613 
parameters 330 
register usage 536 
return codes 538 



Dynamic Allocation routines (SVC 99) 
description 327 
functions 332 
hierarchy 341 
operation 332-337,617-627 
parameters 332 
register usage 504-510 
return codes 512- 51 6, 
Dynamic Allocation Parameter Blocks 
format 

code X"00' 477 
code X'Ol' 478-481 
code X , 02' 482-483 
code X'03' 483 
code X , 04" 484 
code X'06' 485-486 
code X'07' 487 
use 332,617-627 
Dynamic Allocation Work Table (DAWT) 488 
Dynamic Allocation Work Table, Variable 
Area (DAWTVARY) 
for CONCAT 4 90 
for CONVERT 489-490 
for DATASET 492-493 
for UNALLOC 491 
for UPDATE 494-495 

ECT (see Environment Control Table) 

ENQ (see Enqueue macro instruction) 

Enqueue/Dequeue Parameter List 496 

Enqueue macro instruction (ENQ) 
parameter list for 4 96 
use of 617 
work area for 497 

Enqueue Work Area (EWA) 49.7 

entry codes 

to Catalog Information routine 

544-545, 633 
to Command Scan service routine 

141,142, 603 
to Default service routine 521,631 
to Dynamic Allocation Interface Routine 

615 
to Dynamic Allocation routines 617-627 
to GETLINE service routine 593 
to PUTGET service routine 597-599 
to PUTLINE service routine 595 
to STACK service routine 591 

Environment Control Table 59-60,115-116 

EWA (see Enqueue Work Area) 

EXPRESSION 

parameter type 155 

EXTRACT macro instruction 

use by Terminal Monitor Program 27,579 



first element (see Input Stack) 

Flag Word 

format 141 
use 141 

format only 

option of PUTLINE service routine 595 

formatting of messages 

by PUTGET service routine 597-599 
by PUTLINE service routine 59 5 
by TERMOUT subroutine 595,597,599 

freeing data sets 334,617 

fully qualified data set name 519,541 
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GETLINE Parameter Block (GTPB) 

format 117-118 

use 80 
GETLINE service routine 

description 77 

hierarchy 85 

operation 8 0,593 

parameters 80 

register usage 132-133 

return codes 134-135 
GTPB (see GETLINE Parameter Block) 



hierarchy 

Catalog Information Routine 546 
Command Scan service routine 162 
Default Service routine 523 
Dynamic Allocation Interface Routine 

340 
Dynamic Allocation (SVC 99) routines 

341 
GETLINE service routine 85 
Parse service routine 162-163 
I Parse2 service routine 162-163 

PUTGET service routine 85 
PUTLINE service routine 85 
STACK service routine 85 
Terminal Monitor Program 33 



LOGON procedure 

and Dynamic Allocation routine 

327-328,615 
and Terminal Monitor Program 27,577 
LOGON/LOGOFF Scheduler 

giving control to Terminal Monitor 

Program 27,577 
use of Terminal I/O Service Routines 
77,589 

managing user- selected data set attributes 

336-337 
messages issued by 

Default service routine 537 

Parse service routine 321 

PUTGET service routine 131 

PUTLINE service routine 131 

Terminal Monitor Program 71 



OLD (see Output Line Descriptor) 
operands, searching for 146-157 
Output Line Descriptor (OLD) 

format 123 

use by PUTGET service routine 
82,597,599 

use by PUTLINE service routine 81,595 



Input Stack (INSTACK) 
description 79 
format 119 
use 79,591 

INSTACK (see Input Stack) 

in-storage list 
description 79 
use 79,82 

IOPL (see I/O Parameter List) 

IOSRL (see I/O Service Routine List) 

I/O Parameter List (IOPL) 
format 120 

use by Default service routine 535 
use by GETLINE service routine 8 0,593 
use by PUTGET service routine 

82,597,599 
use by PUTLINE service routine 81,595 
use by STACK service routine 79,591 

I/O Service Routine List 
format 121 

use by GETLINE service routine 593 
use by PUTGET service routine 593,595 
use by STACK service routine 79,581 



List Source Descriptor (LSD) 

format 122 

use by GETLINE service routine 593 

use by PUTGET service routine 59 3,595 
LOCATE macro instruction 

return codes 555 

use by Catalog Information Routine 
543,633 
LOCATE Parameter List 

format 553 

use by Catalog Information Routine 
543,633 



parameters 

Catalog Information Routine 544-545,633 
Command Scan service routine 

141-142,601 
Default service routine 520,6 31 
Dynamic Allocation Interface Routine 

330,332,613 
Dynamic Allocation routines 332,617-62 9 
GETLINE service routine 80,59 3 
Parse service routine output 

145,160,605 
PUTGET service routine 82,597,599 
PUTLINE service routine 81,595 
STACK service routine 79,591 

Parameter Control Entry (PCE) 

for IKJENDP macro instruction 277 
for IKJIDENT macro instruction 278-279 
for IKJKEYWD macro instruction 280 
for IKJNAME macro instruction 281 
for IKJPARM macro instruction 282 
for IKJPOSIT macro instruction 283-284 
for IKJSUBF macro instruction 292 
for IKJTERM macro instruction 28 6-287 
for IKJOPER macro instruction 288-289 
for IKJRSVWD macro instruction 290-291 

Parameter Control List (PCL) 145,605 

Parameter Descriptor Entry (PDE) 

for IKJIDENT macro instruction 293 

for IKJKEYWD macro instruction 294 

for IKJPARM macro instruction 294 

for IKJPOSIT macro instruction 295-300 

for IKJTERM macro (constant) 301 

for IKJTERM macro (variable) 302 

for IKJTERM macro (variable, data-name 

qualifier) 303 
for IKJTERM macro (statement number) 

304 
for IKJRSVWD macro (reserved word) 3 05 
for IKJOPER macro (expression) 30 6 



B 
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Parameter Descriptor List (PDL) 145,605 
Parse macro instructions 

brief description of 145 
Parse Parameter List (PPL) 

format 3 07 

use 145,605 
Parse Permanent Workspace (RWORK) 

format 308-316 

use 146 , 6 07 
Parse Recursive Workspace (RWORK) 

format 317 

use 146,607 
Parse service routine 

description 139 

hierarchy 162 

messages 321 

operation 140-160, 605 

parameters 145-146, 605 

register usage 322 

return codes 323 
Parse 2 service routine (see entries for 

parse service routine) 
Pattern construction area 4 98 
PCA (see Pattern construction area) 
PCE (see Parameter Control Entry) 
PCL dsee Parameter Control List) 
PDE (see Parmeter Descriptor Entry) 
PDL (see Parameter Descriptor List) 
PGPB (see PUTGET Parameter Block) 
PPL (see Parse Parameter List) 
Procedure element 7 9 
Protected Step Control Block (PSCB) 

60-62,579 
PSCB (see Protected Step Control Block) 
PSTRING 

parameter type 150 
PTPB (see PUTLINE Parameter Block) 
PUTGET Parameter Block (PGPB) 

format 124-125 

use 82,597,599 
PUTGET service routine 

description 77 

hierarchy 85 

messages 131 

operation 8 2-8 3, 597, 599 

parameters 82,597,599 

register usage 132-133 

return codes 134-135 
PUTLINE Parameter Block (PTPB) 

format 126-127 

use 81,595 
PUTLINE service routine 

description 77 

hierarchy 85 

messages 131 

operation 81 

parameters 8 1 

register usage 132-133 

return codes 134-135 
PWORK (see Parse Permanent Workspace) 



QSTRING 

parameter type 



152 



register usage 

Catalog Information Routine 554 
Command Scan service routine 322 



Default service routine 536 
Dynamic Allocation Interface routine 

503 
Dynamic Alllocation (SVC 99) routines 

504-510 
GETLINE service routine 132-133 
Parse service routine 322 
PUTGET service routine 132-133 
PUTLINE service routine 132-133 
STACK service routine 132-133 
Terminal Monitor Program 7 2 
RESERVED WORD 

parameter type 155 
return codes 

Catalog Information Routine 555 
Command Scan service routine 323 
Default service routine 538 
Dynamic Allocation Interface Routine 

511 
Dynamic Allocation (SVC 99) routines 

512-516 
GETLINE service routine 134-135 
LOCATE routines 555 
Parse service routine 323 
PUTGET service routine 134-135 
PUTLINE service routine 134-135 
STACK service routine 134-135 
Terminal Monitor Program 73 
Validity Check Exit Routine 153 
RWORK (see Parse Recursive Workspace) 

SCB (see STAE Control Block; STAI Control 

Block) 
SIOT (see Step Input Output Table) 
SPACE 

character type 152 
STACK Parameter Block (STPB) 

format 128 

use 79,591 
STACK service routine 

de sc r i p ti on 77 

hierarchy 85 

operation 79,591 

parameters 79, 591 

register usage 132-133 

return codes 134-135 
STAE Control Block (SCB) 31 
STAE exit routine 

in command processor 31 

in Terminal Monitor Program 31,587 
STAE macro instruction 31 
STAI Control Block (SCB) 30 
STAI exit routine 

in Terminal Monitor Program 585 
STAI operand on ATTACH macro instruction 

30 
STATEMENT NUMBER 

parameter type 154 
STAX macro instruction 

issued by command processor 29,583 

issued by Terminal Monitor Program 
29,583 
Step Input/Output Table (SIOT) 

in allocation 334 

in attribute conversion 335 

in unallocation 334 
storage element 79 
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STRING 

character type 1 48 
haracter type 148 
Svc/99 (see Dynamic Allocation routines) 
Syntax checking mask area 318 
SYSOUT data set 

allocation of 331, 615 

freeing of 529 
SYSOUT work area 499 
SYSl.LINKLIB 327 
SYSl.SVCLIB 327 

TAIE (see Terminal Attention Interrupt 

Element) 
Task Input/Output Table (TIOT) 

description of 327,328 

in allocation 33 4 

in attribute conversion 335 

in concatenation 335 

in deconcatenation 336 

in unallocation 334 
TAXE (see Terminal Attention Exit Element) 
Terminal Attention Exit Element (TAXE) 

format 63 

use 583 
Terminal Attention Interrupt Element (TAIE) 

format 64 

use 583 
Terminal Monitor Program 

description of 17 

hierarchy 33 

messages 71 

operation 26-31 

parameter list for 66 
agister usage 72 

return codes 73 
TEST command processor 

parameter list for 65 

passing control to 28,581 
TEST Parameter List (TPL) 

format 65 

use 581 (refer to the publication IBM 
System/360 Operating System: Time 
Sharing Option: Command Processors 
Volume 7 - TEST, GY2 8 -6777) 
Text Insertion Parameter List (TXINPARM) 
129 



TIME command processor 

loaded by Terminal Monitor Program 
27,579 
TIOT (see Task Input/Output Table) 
TMP (see Terminal Monitor Program) 
TMP Retry Work Area (TMPWA2) 

format 67 

use 5 87 
TMP Work Area (TMPWORKA) 

f or ma t 68 

use 579 
TMPWA2 (see TMP Retry Work Area) 
TMPWORKA (see TMP Work Area) 
Top element (see Input Stack) 
TXINPARM (see Text Insertion Parameter 
List) 



UCBLIST 500 

unallocate work area 501 
updating the DSE and DCB 336 
UPT (see User Profile Table) 
User id 

part of fully qualified data set name 
519,541 

prefixing to data set name 330,522 
USERID 

parameter type 150-151 
User Profile Table (UPT) 

format 70,130 

use by Terminal I/O Service Routines 
82,599 

use by Terminal Monitor Program 27,579 



Validity check exit 

in Parse service routine 156 
Validity Check Parameter List (VCEPARM) 

format 320 

use 156 
VALUE 

parameter type 148 
VARIABLE 

character type 154 
VCEPARM (see Validity Check Parameter List) 
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Diagram 1 : Terminal Monitor Program 

Diagram 2: TMP Initialization 

Diagram 3: Handling TSO Commands 

Diagram 4: Handling Attention Requests 

Diagram 5: Handling STAI Requests 

Diagram 6: Handling STAE Requests 

Diagram 7: Terminal I/O Service Routines (Overview) 

Diagram 8: STACK Service Routine 

Diagram 9: GETLINE Service Routine 

Diagram 10: PUTLINE Service Routine 

Diagram 11: PUTGET Service Routine (Command Mode) 

Diagram 12: PUTGET Service Routine (Prompting Mode) 

Diagram 13: Command Scan and Parse Service Routines (Overview) 

Diagram 14: Command Scan Service Routine 

Diagram 15: Parse Service Routine 

Diagram 16: Parse Initialization 

Diagram 17: Searching for IKJPARS Positional Parameters 

Diagram 18: Searching for IKJPARS2 Positional Parameters 

Diagram 19: Searching for Keyword Parameters and Subfields 

Diagram 20: Dynamic Allocation Interface Routine 

Diagram 21: Allocating Data Sets 

Diagram 22: Freeing Data Sets 

Diagram 23: Converting Data Set Attributes 

Diagram 24: Concatenating Data Sets 

Diagram 25: Deconcatenating Data Sets 

Diagram 26: Updating the DCB and DSE 

Diagram 27: Building and Maintaining ATRCBs 

Diagram 28: Default Service Routine 
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ATTACH from the 
Region Control ^M 
Task(RCT). ■ 


LOGON/LOGOFF 
Scheduler 


nitiator/ 
Terminator 


//STEP1 

/ 
/ 
/ 
/ 
J. 


EXEC 
TMP 


PGM 


=IKJEFT00 
























The TMP is Attached by an Initiator Terminator 
□t the Program Named by the First EXEC 
Statement of the User LOGON Procedure. 







INPUT 

A ATTACH from 
LOGON/ 
LOGOFF 
Scheduler Via 
MVT Job 
Management 



PROCESSING 
Terminal Monitor Program 



RESULT 



IKJEFT01 




Obtains TSO Commands, Gives Control 
to TSO Command Processors and Monitors 
Their Execution: 



1 Completes LOGON Process. 



2 Obtains TSO Commands and Gives -- 
Control to TSO Command Processors, 
One at a Time. 



3 Handles Attention Requests. 



4 Attempts to Recover from Errors in 
TSO Command Processor or Subtask. 



5 Attempts to Recover from its Own 
Errors. 



6 Begins LOGOFF Process. 



Command Library 



ATTACH * 



RETURN 



TSO Command Processor 



Performs Operations Requested 
by TSO Command. 



*Most TSO Command Processors Receive 
Control by an ATTACH Macro 
Instruction. TIME is Entered by a Branch. 
TEST is Entered by a LINK Macro 
Instruction. 



CROSS REFERENCE TABLE 



Key 


description 


Routine 


Label 


Flowchart 


Diagram 


1 


The TMP is attached by an initiator/ terminator as the program named by 
the first EXEC statement in the user logon procedure. The TMP completes 
the logon process by setting up tables and control blocks that define the 
user's environment in the foreground region. 


Initialization 


IKJEFT01 


AA-AB 


2 


2 


The TMP obtains commands from the terminal and gives control to 
the appropriate command processor, one at a time. Most command 
processors are attached as subtasks of the TMP. Exceptions are TIME 
(which is branched to) and TEST (which is linked to). 


Mainline 


IKJEFT02 


AC-AG 


3 


3 


The TMP handles attention interrupts by displaying second-level 
messages in response to a question mark or by obtaining a new command 
to replace the one that was interrupted. 


Attention 
Exit Routine 


IKJEFT03 


AH 


4 


4 


The TMP attempts to recover from errors in a command processor or one 
of its subtasks by allowing the user to enter a TEST command. 


STAI Exit 
Routine 


IKJEFT04 


AJ 


5 


5 


The TMP attempts to recover from errors in its own code by diagnosing the 
cause of the error and, if possible, by restarting the TMP. 


STAE Exit 
Routine 
STAE Retry 
Routine 


IKJEFT05 
IKJEFT07 


AK 
AL 


6 
6 


6 


The TMP performs cleanup operations and returns to the LOGON/LOGOFF 
scheduler when the operator issues a STOP or MODIFY command or 
when the user issues a LOGON or LOGOFF command. 


Mainline 


IKJEFT02 


AB 


2 



f RETURN J 



To LOGON/LOGOFF Scheduler 



LEGEND 




^ 



Start of Diagram 



Control Flow 



Data Flow 



{2~TL"ZT_r x> D Q r a Made Available 
V 

I | Pointer to, or Address of 



^ Reference to 



1,2, etc. Refer to Corresponding Number 



A,B, etc. Refer to Corresponding Letter 
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INPUT 



gtster 1 
\^TMP Parameter Ust 



| Parameter Buffer 



Protected Step Control Block (PSCB) 



ATTACH from LOGON/LOGOFF via MVT Job 
Management or XCTL from STAE Retry Routine. 




Note: If entry is from the STAE Retry Routine 

(IKJEFT07) the first word contains X'FFFFFFFF' and the second word contains 

the address of the TMP Retry Work Area. See Diagram 6. 



PROCESSING 
TMP Initialization IKJEFT01 




£> 2 Builds the ECT. 



Completes user LOGON process. 
Sets up exit routines. 



1 Obtains the Address of the PSCB 
and UPT. 



3 Bui Ids the TMP Work Area and Retry 
Work Area. 



4 Sets Up the STAE, STAI and Attention 
Exits. 



5 Sets Up the Input Stack. 
Z^ Q Sets Up the Command Buffer. 



Operation 
Diagram 



I 



IKJEFT03 



Transfers Control to TMP 
Mainline Routine (IKJEFT02). 
See Operation Diagram 3. 



-3 



Attention Exit 
IKJEFT04 



STAI Exit 
IKJEFT05 



STAE Exit 
Routine 



f 



RESULT 



Environment Control Table (ECT) 



} 



Contains information about the 
user's environment in the 
foreground region. 



TMP Work Area (TMPWORKA) 



TMP Retry Work Area (TMPWA2) 



Input Stack (I NSTACK) 




Note: See 
Operation Diagram 8 



Command Buffer (CBUF) 



length 


offset 


command 



SUBPOOL 1 



LEGEND 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


1 


The TMP uses an EXTRACT macro instruction to obtain the address of the 
Protected Step Control Block (PSCB) which contains the address of the 
User Profile Table (UPT). 


Initialization 


IKJEFT01 


AA-AB 


2 


The TMP constructs the Environment Control Table (ECT) from 
information contained in the PSCB and UPT. 








3 


The TMP builds two major internal work areas: the TMP Work Area 
(TMPWORKA) and the TMP Retry Work Area (TMPWA2). TMPWORKA 
contains parameter lists and control information for normal operation. 
TMPWA2 contains information needed by the TMP STAE Retry Routine. 









Key Description 


Routine 


Label 


Flowchart 


4 


The TMP sets up the STAE exit by issuing a STAE macro instruction and 
loading the STAE exit routine. 

The TMP sets up the Attention exit by issuing a STAX macro instruction 
and loading the Attention exit routine. 

The TMP sets up the STAI exit by loading the STAI exit routine and 

( later on, in Diagram 5) by including the STAI operand on the ATTACH 

macro instruction when giving control to a command processor. 

The TMP loads the TIME command processor. 




LDSTAE 


AA 


5 


The TMP initializes the first element on the Input Stack to describe the 
terminal as the current source of input. 




STACK 


AB 


6 


The TMP sets up the Command Buffer (CBUF) and initializes it with the 
value from the PARM field of the first EXEC statement in the user logon 
procedure. 




FCMOOl 


AB 



^+ 


Start of Diagram 


K 


Control Flow 


' S 


Data Flow 


r -"- ~--v 


Data Made Available 


t ^ 


Pointer to, or Address of 




Reference to 


1,2, etc. 


Refer to Corresponding Number 


A,B, etc. 


Refer to Corresponding Letter 
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INPUT 



PROCESSING 



RESULT 



Input Buffers 





PARMBuffer 












Command Buffer 












Attention Buffer 












STAi Buffer 

















CROSS REFERENCE TABLE 



XCTL from TMP 
Initialization 
(See Operation 
""N Diagram 2 ) or from 

1 TMP STAE Retry 

I Routine (See 

I Operation Diagram 6) 

I 
I 

V 



TMP Mainline 



IKJEFT02 




Key Description 


Routine 


Label 


Flowchart 


Diagram 


1 The TMP obtains a TSO command from one of four input buffers, 
depending upon the stituation: 

• At entry from the LOGON/LOGOFF scheduler, the TMP obtains 
a command from the PARM Buffer. 


TMP 
Initialization 


IKJEFT01 


AA 


3 
2 


When handling an attention request, the TMP may obtain a 
command from the Attention Buffer pointed to by the CMDWAIT 
field of the TMP Work Area. 


TMP 
Mainline 


ATTNPOST 




4 


• When handling a STAI request, the TMP may obtain a command 
from the STAI Buffer pointed to by the CMDWAIT field of the 
TMP Work Area. 




STAIPOST 


AF 


5 


• When a command processor has completed, the TMP obtains a 
command from the command buffer. 




GETCMD 


AD 


3 


2 The TMP searches the buffer for a valid command name. In most cases, 
the TMP then searches the user command library to find the appropriate 
command processor and attaches it as a subtask (Step 3). In five cases, 
the TMP processes the contents of the buffer without having to search 
the user command library or attach a subtask. These cases are : 




SCAN 


AC 
AC 


3 


Buffer Contains Action Taken 










question mark Writes chained second-level messages to the 
terminal. 










null line Ignores the line. 










invalid command Writes an error message to the terminal. 










TIME Branches to the TIME command processor. 










TEST Links to the TEST command processor. 










The TMP then prompts the terminal to enter another command (Step 1 ). 










3 The TMP searches the user command library to obtain the command 

processor corresponding to the command name and attaches it as a subtask. 
If the command processor is not found, the TMP assumes that the intended 
command processor is EXEC and that the buffer contains a valid member 
name. 




BLDL 
IMPLEXEC 


AE 
AE 


- 3 
3 


4 The TMP waits on the command processor ECB. The MVT Dispatcher 
gives control to the command processor and allows it to execute. 




WAIT 


AF 


3 


5 When the TMP regains control from the MVT Dispatcher following a post 
of an ECB, it determines why it got control and takes the appropriate 
action : 




LIST 


AF 


3 


ECB Posted Action Taken 










CP Obtains another command. See Step 1. 










ATTN Obtains another command. See Step 1 . 










STAI Obtains another command. See Step 1. 










LOGOFF Performs cleanup operations before returning to the 
LOGON/LOGOFF scheduler. 











Obtains TSO Commands and Gives 
Control to TSO Command Processors. 



1 Obtains a line of Input in an Input 
buffer. 



2 Searches the buffer for a valid TSO 
command . 

• If buffer begins with question mark, 
writes second-level messages. 

• If buffer contains null line, 
ignores line. 

• If buffer contains ' TIME ' branches 
to TIME command processor. 

o If buffer contains 'TEST 1 links 
to TEST command processor. 



3 Searches the command Library for -" ' 

the TSO command processor, 
and attaches it as a subtask. 



4 Waits for command processor to 
complete. 



5 Obtains another line of Input. 



Repeat Step 2. 



Command Library 



BLDL 



/" 




TSO Command Processor 



ATTACH /WAIT 




/ I Register 1 



/ ■ \ Command Processor 

S ■ \- Parameter List 




:> 



Performs Operations Requested 
by TSO Command. 



POST/RETURN 




LEGEND 




^^ 


Start of Diagram 


K 


Control Flow 


' ^ 


Data Flow 


L~==~t> 


Data Made Available 


\S 


Pointer to, or Address of 


-^ 


Reference to 


1,2, etc. 


Refer to Corresponding Number 


A,B, etc. 


Refer to Corresponding Letter 
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Setting the TMP Attention Exit 



ATTACH from 
LOGON/ 
LOGOFF 
Scheduler Via 
MVT Job 
Management 



Terminal Monitor Program 




1 Sets Up the Attention Exit, 



3 Attaches a TSO Command 
Processor and Waits on ECB 
List. 



CP 



ATTN 



7 Detaches the Current TSO 
Command Processor, Attaches 
New One, and Waits on ECB 
List. 



CP 



ATTN 



Etc. 




STAX 



TSO Command Processor 



TMP Work Area 



| Attention Buffer 



A- 



POST/RETURN 



TSO Command Processor 



Continue Processing 



STAX Service Routine 



2 Sets Up Supervisor Linkage to 
Attention Exit Routine. 




TMPTCB 







CPTCB 


/ 











ATTENTION INTERRUPTION 



TMP Attention Exit Routine IKJEFT03 



6 Checks for TIME, Question 
Mark, or Null Line. 



Places address of buffer in TMP 

Work Area . 

Posts TMP Attention ECB. 



c 



SYNCH 



Attention Exit 
Parameter List 



4 Buffer 




TMPAttention 
EXIT Routine 



Attention 
Scheduler 



Note: If the command Processor 
(or one of its programs has specified 
an attention exit, its exit routine 
will receive control before the TMP's. 



1 



IKJEAR04 
IKJEAR05 



5 Gets a line of Input from 
terminal. 

Schedules TMP Attention 
Exit Routine. 



Attention Buffer 




LEGEND 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


Diagram 


1 The TMP issues a STAX macro instruction specifying an Attention Exit 
Routine. 


TMP 
Initialization 


IKJEFT01 


AB 


4 


2 The STAX Service Routine sets up the necessary control blocks and returns 
control to the TMP. 


STAX Service 
Routine 






4 


3 The TMP continues processing, obtaining commands, attaching 
command processors, waiting on an ECB list, etc. 


TMP 
Mainline 


IKJEFT02 


AC -AG 


3 


4 At some point during the processing of a command, the user presses the 
Attention key. 











Key Description 


Routine 


Label 


Flowchart 


Diagram 


5 The Attention scheduling routine in the Region Control Task (RCT) gets 
control and issues a TPUT SVC to write a "READY " message to the 
terminal and a TGET SVC to get a line of input from the terminal. It 
then schedules the TMP Attention Exit Routine. 


ATTN 

Scheduling 

Routine 


IKJEAR04 
IKJEAR05 




4 


6 The Attention Buffer is scanned for a valid command using Command Scan. 
TIME and question mark requests are handled directly. Otherwise, the 
interrupted task is marked non-dispatchable using the STATUS macro 
instruction with a STOP operand. The new command is moved into the 
Command Waiting field of the TMP Work Area and the ATTN ECB is posted. 


TMP 

Attention 

Exit 


IKJEFT03 


AH 


4 


7 When the TMP regains control, it finds that its ATTN ECB has been posted. 
The TMP detaches the Interrupted command processor and attaches the 
new command processor. 


TMP 
Mainline 


IKJEFT02 


AC 


3 




Start of Diagram 



Control Flow 



:£> Data Flo 



I "> Data Made Available 



\r> 



Pointer to, or Address of 
► Reference to 

1 2 e tc. Refer to Corresponding Number 

A,B*etc. Refer to Corresponding Letter 
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ATTACH 
from 

LOGON/ 
LOGOFF 

Scheduler 



Terminal Monitor Program 



1 Sets up TMP STAI Exit. 
See A 



ATTACH 



STAI Processing 



ABEND/STAE Interface Routine 



9 Schedules TMP STAI 
Exit Routine. 



IKJEFT04 



TMP STAI Exit Routine 



1 Attempts to recover from 
error. 




No 



CROSS REFERENCE TABLE 



Command Processor 



2 Sets up command processor 
STAE Exit. 

See B 

3 Command Processor 
abnormally terminates. 



A Setting up the TMP STAI Exit 



SVC 13 



ABEND Routine 




^ Continues ABEND 
* Processing 



STAE Processing 



CP STAE Exit Routine 



6 Analyzes error. Marks 

recoverable or unrecoverable 



CP STAE Retry Routine 



7 Attempts to retry the 
task. 






^ Cancel ABEND ^ 



Key Description 


Routine 


Label 


Flowchart 


Diagram 


1 During initialization, the TMP loads the TMP STAI Exit Routine. 


TMP 


IKJEFT01 


AB 


2 


Later, when the TMP gives control to a command processor, it issues an 


Initialization 








ATTACH macro instruction with a STAI operand. The STAE service routine 




IKJEFT02 


AC 


3 


builds a STAI Control Block specifying the address of the STAI Exit Routine 










and chains it to the TCBNSTAE field of the command processor's TCB. 


STAE Service 
Routine 








2 The command processor, during its initialization process, issues a STAE macro 


Command 








instruction specifying the address of a STAE exit routine and, possibly, a 


Processor 








STAE retry routine. The STAE service routine builds a STAE Control Block 


STAE Service 
Routine 








and chains it to the TCBNSTAE field of the command processor's TCB. 








3 When an error in the command processor results in an ABEND, control 


Command 








passes to the ABEND Routine. 


Processor 









Key Description 


Routine 


Label 


Flowchart 


Diagram 


4 The ABEND routine recognizes that there is a STAE exit routine and passes 
control to the ABEND/STAE interface routine. 

5 The ABEND/STAE interface routine quiesces all active I/O, purges all 
ready I/O, attempts to establish a work area, and schedules the command 
processor's STAE exit routine by issuing a SYNCH macro instruction. 

6 The command processor's STAE Exit Routine analyzes the error and marks it 
recoverable or unrecoverable. 

7 If the error is recoverable, the ABEND/STAE interface routine passes 
control to the STAE retry routine, if any, which attempts to retry the 
failing task. 

8 If the attempt is successful, the ABEND is cancelled. 

Otherwise, control is returned to the ABEND routine which recognizes 
a STAI Exit Routine. 


ABEND 
Routine 

ABEND/STAE 
Interface 

Command 
Processor 

Command 
Processor 
STAE Retry 











Terminal 
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Program 




STAE 

Service 

Routine 






TMP TCB 
















^N 




TMP STAI 














.) 




M~B 








V 








Exit Routine 




«< 











































B Setting up the Command Processor's STAE Exit 
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TMP STAI 
Exit Routine 




CPSTAE 
Exit Routine 



LEGEND 
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Routine 


Label 


Flowchart 


Diagram 


9 The TMP STAI Exit Routine is scheduled using a SYNCH macro 


ABEND/STAE 








instruction. 


Interface 








"I0 'f * ne Command Processor's STAE Exit Routine has marked the error 


TMP STAI 


IKJEFT04 


AJ 


5 


unrecoverable, control is returned to the ABEND Routine. Otherwise the 


Exit 








TMP STAI ECB is POSTed. If the TEST command processor had control, 




IKJEFT02 
STAIPOST 


AE 


3 


TEST is re-entered. Otherwise, the user is prompted for a command and 
given a chance to attempt to recover from the error. 


TMP 
Mainline 


"|1 If the attempt is not successful, control is returned to the ABEND 


ABEND 








routine. 


Routine 


* 






"12 ^ * ne attempt is successful, the ABEND is cancelled. 
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ATTACH from LOGON/LOGOFF Scheduler Via 
MVT Job Management 
OR 
XCTL from STAE Retry Routine 



A Setting up the TMP STAE Exit 



TMP Initialization 



1 Sets up TMP 
STAE Exit. 

See A 



XCTL 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


Diagram 


1 The TMP issues a STAE macro instruction that sets up 


TMP 


IKJEFT01 


AA 


2 


parameters for the STAE service routine. The STAE 


Initialization 








service routine builds a STAE Control Block (SCB) 
that contains the address of the TMP STAE exit routine. 










2 When an error occurs in any TMP routine, an ABEND 


ABEND 








(SVC 13) is issued. 


SVC 








3 The ABEND routine checks the TCBNSTAE field of the 


ABEND 








TCB for the abnormally terminating task and, finding 


SVC 








that a STAE exit is specified, passes control to the 
ABEND/STAE interface routine. 










4 The ABEND/STAE interface routine quiesces active 
I/O, purges ready I/O, and attempts to establish a 
work area. It then schedules the TMP STAE exit 


ABEND/STAE 

interface 

routine 








routine by issuing a SYNCH macro instruction. 










5 The TMP STAE exit routine diagnoses the cause of the 


TMP STAE 


IKJEFT05 


AK 


6 


error and marks the error recoverable or not 


exit routine 








recoverable. 










6 If the error is recoverable, the TMP is re-initialized, 


TMP STAE 


IKJEFT07 


AL 


6 


if necessary, and processing resumes. 


Retry 
Routine 








7 If the error is not recoverable, control is returned 


ABEND 








to ABEND for abnormal termination processing. 


SVC 









TMP Mainlin 



2 Terminal Monitor Program 
abnormally terminates. 



SVC 13 



ABEND Routine 



7 Continues ABEND 
Processing. 




ABEND/STAE 
Interface Routine 



4 Schedules STAE 
Exit Routine 




Cancel ABEND 



STAE Processing 



TMP STAE Exit Routine 



O Analyzes error 

Marks recoverable or 
unrecoverable. 



TMP STAE Retry Routine 



6 Attempts to retry the 
task. 
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ATTACH from the 

Region Control Task (RCT) 



In-Storage List 



Two kinds:- 

• Source — data 

• Procedure — list of TSO Commands 




CROSS REFERENCE TABLE 



1 LOGON/LOGOFF Scheduler 



LINK I Tp 



ATTACH 



RETURN 



2 Terminal Monitor Program 



RETURN 



LINK I t R 



ATTACH w , — L 
■■■■► 



RETURN 



3 TSO Command Processor 



RETURN 



link I If 



LINK or 
ATTACH 



RETURN 



4 Other TSO Problem Program 



RETURN 



L,NK I t R 



RETURN 



TERMINAL l/O SERVICE ROUTINES 



IKJSTCK 



IKJGETL 



IKJPUTL 



IKJPTGT 



STACK Service Routine 



Manages Input Stack which determines 
current source of input. 

• Adds element(s) to the 
stack. 

• Deletes element(s) from 
the stack. 



7> 



GETLINE Service Routine 



Gets a line of input. 

• From the terminal. 

OR 

• From the current source 
of input. 



Input Sta ck \J7 




TV 



TV 



PUTLINE Service Routine 



Formats and puts l?ne(s) to the 
terminal. 

• Data line(s). 

• Informational message (s). 

• Second-level message(s). 



Commands or Data 



TOP 



BOTTOM 



PUTGET Service Routine 



Obtains commands and operands. 

• Sends a line to the terminal. 

AND 

• Obtains a line from current 
source of input. 

4% /\ 



Commands 



Top element describes the current 
source of input which may be 
from the terminal or from an 
in-storage list. 

- Bottom element always 
describes the terminal 
as the source of input. 



Data or 

Informational 

Messages 



Prompt Message Operands 

or 
Mode Message 



LEGEND 
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Routine 
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Flowchart 


Diagram 


1 The LOGON/LOGOFF Scheduler uses STACK to set up th* first 


STACK 


IKJEFT30 


BA-BC 


8 


(bottom) element to describe the terminal as the current source of 


GETLINE 


IKJEFT55 


BP-BQ 


9 


input and uses other I/O Service Routines for terminal l/O. 


PUTLINE 


IKJEFT40 


BD-BE 


10 




PUTGET 


IKJEFT45 


BF-BJ 


11-12 


2 The TMP uses STACK to set up the first (bottom) element to describe 


STACK 


IKJEFT30 


BA-BC 


8 


the terminal as the current source of input. This first (bottom) element 










is never removed. 










The TMP uses PUTGET to obtain commands, (an exception: The TMP 


PUTGET 


IKJEFT45 


BF-BJ 


11 


Attention Exit Routine uses PUTLINE and GETLINE to obtain commands 










from the terminal. This is done because GETLINE optionally gets a 










line directly from the terminal, while PUTGET always gets a line from 










the current source of input.) 










The TMP uses PUTLINE to write error messages. 


PUTLINE 


IKJEFT40 


BD-BE 


10 



Key Description 


Routine 


Label 


Flowchart 


Diagram 


3 The TSO command processors may use STACK to set up in-storage lists. 


STACK 


IKJEFT30 


BA-BC 


8 


There are two kinds of in-storage lists: source (data), and procedure 










(TSO commands). 










TSO command processors use PUTGET to obtain operands and subcommands. 


PUTGET 


IKJEFT45 


BF-BJ 


11-12 


(Subcommand processors use PUTGET to obtain their operands.) 










TSO command processors use GETLINE to obtain data and use 


GETLINE 


IKJEFT55 


BP-BQ 


9 


PUTLINE to write first and second level messages to the terminal or to 


PUTLINE 


IKJEFT40 


BD-BE 


10 


write data to the terminal. 










4 Other TSO problem programs may use any or all of the Terminal I/O 


STACK 


IKJEFT30 


BA-BC 


8 


Service Routines if they share subpool 78 and use the proper parameter 


GETLINE 


IKJEFT55 


BP-BQ 


9 


lists. 


PUTLINE 


IKJEFT40 


BD-BE 


10 




PUTGET 


IKJEFT45 


BF-BJ 


11-12 
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INPUT 



PROCESSING 



RESULT 



Register 1 



From TSO Problem Program 
Using STACK or LOAD/CALL 
Macro Instructions 






STACK Service Routine IKJSTCK 




Creates and updates the 
Input Stack and IOSRL which 
define the current source of input. 




1 

/ 
/ 


Sets up IOSRL and Input Stack 
or performs one of the following 
operations: 


/ 
/ 

/ 






/ 


2 


Adds an element to the top of 
the stack. 




/ 


- OR- 




3 


Deletes an element from the 
top of the stack. 

- OR- 




4 


Deletes a procedure element 
from the stack. 

-OR- 




5 


Deletes all elements from the 
stack (except bottom element). 



( RETURN J 



ADD ELEMENTS 



^ Update } Top Element 



=> 



Input Stack 



INSTACK 



<^ 



DELETE ELEMENTS 



< I/O Service Routine List IOSRL 



| Top Element 



| Bottom Element 




// 


/ ^%> / 


<v, 


B 


\ LSD C 




\ LSD 




4 LSD 




(Terminal) 
\ LSD 







(Terminal) 




► Other Elements 



Bottom Element 



B 



A 






Operation Code : 


Bit 


Meaning when set 





Add one element to top of stack. 


I 


Delete one element from top of 
stack. 


2 


Delete current procedure 
element. If top element is not 
a procedure element, delete all 
elements down to and including 




first procedure element. 


3 


Delete all elements except 
bottom element. 


4-7 


Reserved (0). 





Element Code : 


Bit 


Meaning when set 



l 

2-5 
6 


Terminal element. 

Storage element. 

Reserved (0). 

Procedure element; if 0, source 


7 


element. 

List TSO commands to the 

terminal 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


1 If the ECTIOWA field of the ECT is zero, STACK gets main storage for 
the Input Stack and the IOSRL. STACK then checks the STACK options 
field of the STPB to determine the function requested. 


STACK 


IKJEFT30 


BA-BC 


2 Before adding an element to the stack, STACK checks to see if space is 
available and, if necessary, gets main storage for a new stack that is 32 
bytes larger than the current stack. 






BA 


3 STACK deletes an element from the stack by freeing the LSD and 

in-storage list of any non-terminal element and changing the Top Element 
Pointer in the IOSRL to point to the next lower element. 




DELETE 


BB 


4 STACK finds the next procedure element on the stack and deletes it by i 
freeing the LSD and in-storage/ list of any non-terminal element and 
changing the Top Element Pointer in the IOSRL to point to the next lower 
element. Any elements above the procedure element are also deleted. 






BB 


5 STACK deletes all elements from the stack by setting the Top Element 
Pointer in the IOSRL to point to the first element in the stack and 
freeing the LSD and in-storage list of any non-terminal element. 




UNSTACK 


BC 



t List Source Descriptor (LSD) for In-Storage List; 
for a Terminal Element. 



INSTACK 



LSD 



In-Storage List 



Next 
Record 



Note: Storage is freed when STACK deletes one or 
more elements from the stack. 



JT 



LEGEND 
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INPUT 



PROCESSING 
GETLINE Service Routine 



RESULTS 



IKJGETL 



From TSO Problem Program Using GETLINE 
or LOAD/CALL Macro Instruction 



Register 1 



INSTACK 




Gets line(s) of input from 
terminal or from current 
source of input. 



I Determines source of Input: 

• From terminal 

OR 

• From in-storage list. 



2 Obtains line(s) of input 
/from the terminal. 
^ If last character is ' - ' get 
another line. 

OR 



3 Obtains line(s) of input from 

"^ in-storage list. 



GETLINE Options A B TGET Options 



f Input Buffer 



i 



A GETLINE Options 



SUBPOOL 1 








TGET 








A. 


Terminal 




length 


offset 


data 


V^ 




A 






( 
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In-Storage List 
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offset 
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C 


r lu 
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C 
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I RETURN J 



CROSS REFERENCE TABLE 








Key 


Description 


Routine 


Label 


Flowchart 


1 


Checks the GTPB to see if the source of input must be the terminal 
regardless of the current source. If not, checks the Top Element Pointer 
of the IOSRL to determine the current source of input. 


GETLINE 


IKJEFT55 


BP-BQ 


2 


If the terminal is the current source of input GETLINE gets a line of 
input from the terminal. If logical line processing is requested, 
GETLINE recognizes " - " as a continuation character ( if it comes at 
the end of the line) and gets all physical lines contained in the logical 
line. 






BP-BQ 


3 


If the current source of input is an in-storage list (Top Element Pointer 
points to List Source Descriptor), GETLINE gets the next record pointed 
to by a field within the List Source Descriptor (LSD) and updates the 
pointer to the next record. 

If an end-of-data is reached on a in-storage list, GETLINE links to the 
STACK service routine to delete an element from the stack. No line is 
returned to the calling program. 


STACK 


IKJEFT30 


BA-BC 



Bit settings that indicate the operation 
to be performed, as follows: 


Bit 


Meaning when set 


0-2 


Reserved (0). 


3 


The line of input is a physical 




line; if zero, it is a logical 




line. 


4 


The source of input is the 




terminal ; if zero, it is as 
described by the top element 
the input stack. 


5-15 


Reserved (0). 



B TGET Options 



Bit settings, as follows: 

Bit Meaning when set 



1-2 

3 



Always set for TGET. 

Reserved (0). 

NOWAIT was specified; if 

zero, WAIT was specified. 
4-6 Reserved (0). 
7 ASIS was specified ; if zero, 

EDIT was specified. 
8- 1 5 Reserved (0). 



For further information about TGET 
options, refer to IBM System/360 
Operating System Time Sharing 
Option G uide to Writing a Terminal 
Monitor Program or a Command 
Processor , GC28-6764. 



The In-Storage List must have been placed on the Input Stack 
using the STACK service routine. 
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INPUT 



Register 1 
V IOPL 



PROCESSING 
PUTLINE Service Routine 



RESULT 



IKJPUTL 



♦ UPT 



I ECT 



I ECB 



♦ PTPB 



PTPB 



^ PUTLINE 
Options 



B 



TPUT 
Options 



f Header Entry (data) or 
| OLD (message) 




From TSO Problem Program Via 
PUTLINE or LOAD/CALL Macrosl 



Data Line Data Line Data Line 




Message Segments 



N 



Sends line(s) of data to terminal. Formats 
messages and sends messages to the terminal 



1 Determine function requested. 



2 Sends line(s) of data to the 
terminal. 



3 Format a message without sending 
it to the terminal. 



4 Formats message(s) and sends them to 
y" the terminal. Chain 2nd level 

messages. 



■*\ 5 Sends Second-level message(s) 
( * to the terminal. 



1 



C RETURN J 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


1 The PUT Options field is checked to determine the function 
requested . 


PUTLINE 


IKJEFT40 


GA-GC 


2 If the line contains data (bit 2 is set), PUTLINE sends data to the terminal. 


TERMOUT 


IKJEFT56 


BR-BS 


If the data consists of multiple lines (bit 4 is set) then all lines are 
sent to the terminal. 








3 If the line contains a message (bit 2 is not set) and format only is 
specified (bit 10 is set), PUTLINE formats the message but does not 
send it to the terminal, as follows: 








• Formats the message, if necessary. 


TEXTIN 


IKJEFT54 


BM-BN 


4 PUTLINE sends an informational message to the terminal if 
the line contains a message (bit 2 is not set), format only was 
not specified (bit 10 is not set), and the second word of the PTPB 
(PARMAOUT) contains an address. PUTLINE: 


PUTLINE 


IKJEFT40 


BD-BE 


• Formats the message, if necessary. 


TEXTIN 


IKJEFT54 


BM-BN 


o Sends it to the terminal. 


TERMOUT 


IKJEFT56 


BR-BS 



Subpool I Buffers (if formatting required) 

TPUT 



Data Line 



£ 



Formatted Message 



£ 



Informational Message 



3 




Note: Returned to 
Calling Program 



TPUT 



Second-Level Message 



TPUT 




Key Description 


Routine 


Label 


Flowchart 


If bit 5 is set, PUTLINE constructs a second-level message chain, 


PUTLINE 


IKJEFT40 


BD-BE 


as follows: 








• Formats the message, if necessary. 


TEXTIN 


IKJEFT54 


BM-BN 


• Chains 2nd level message to the second-level message chain 


PUTLINE 


IKJEFT40 


• BD-BE 


whose origin is the ECTSMSG field of the ECT. 








5 PUTLINE sends second-level messages to the terminal ?f bit 2 is not 


PUTLINE 


IKJEFT40 


BD-BE 


set, format only was not specified (bit 10 is not set), and the second 








word of the PTPB contains zero. PUTLINE: 








• Sends all second-level messages to the terminal. If the ECTSMSG 


CHAINOUT 


IKJEFT52 


BK 


field of the ECT contains the address of a second- level message chain. 








• Sends a "NO INFORMATION AVAILABLE " message if the ECTSMSG 


CHAINOUT 


JKJEFT52 


BK 


field of the ECT contains zero or if the ECTSMSGF bit is set. 








• Frees the storage obtained for the second-level message. 


UNCHAIN 


IKJEFT53 


BL 


• Zeroes the ECTSMSG field. 


UNCHAIN 


IKJEFT53 


BL 



A PUTLINE Options 



Bit settings, as follows: 



Bit. 


l 
2 
3 
4 
5 
6 
7 
8 
9 
10 



Meaning when set 
Reserved (0). 



Reserved (0). 

Line contains data. If 0, line contains message. 
Line is single-level or single-line. 
Multi-line format (data). 
Multi- level format (messages). 
Informational message. 
Reserved (0). 
Reserved (0). 
Reserved (0). 

Format Only. (Do not send message to the 
terminal). 
11-15 Reserved (0). 



For further information about PUTLINE options, refer to 
IBM System/360 Operating System Time Sharing Option 
Guide to Writing a Terminal Monitor Program or a 
Command Processor, GC28-6764. 



B TPUT Options 



Bit settings that indicate the TPUT options requested, 
as follows: 

Meaning when set 

Always zero for TPUT. 
Reserved (0). 

NOWAIT processing requested. 
HOLD processing requested. 
BREAKIN processing requested. 
CONTROL processing requested. 
AS IS processing requested. 



Bit 



1-2 

3 

4 

5 

6 

7 



For further information about TPUT options, refer to 
IBM System/360 Operating System Time Sharing Option 
Guide to Writing a Terminal Monitor Program or a 
Command Processor, GC28-6764. 
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INPUT 



, Register 1 



From TMP or TSO Command Processor 
Using PUTGET or LOAD/CALL Macro 
Instruction 



INSTACK 



PROCESSING 
PUTGET Service Routine 



IKJPTGT 




A 


B 


| Output Line Descriptor ^ 


C 


D 


4 Input Buffer 



First Level Message 



Secondary 
Messages 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


1 Command Mode is requested when bit 8 of the PUT Options field is set. 
(If bit 8 is zero, refer to Diagram 12 for Prompt Mode.) 


PUTGET 


IKJEFT45 


BF-BJ 


2 Checks the IOSRL to determine source of input. 








3 If the terminal is the current source of input, PUTGET obtains a 
command from the terminal, as follows: 








• Formats the output line in a buffer, if necessary. 


TEXTIN 


IKJEFT54 


BM-BN 


• Sends the line to the terminal. 


TERMOUT 


IKJEFT56 


BR-BS 


• Gets a line from the terminal. 


GETLINE 


IKJEFT55 


BP-BQ 


a) If the line begins with a question mark ("?") : 








• Sends second-level messages to the terminal if the ECTSMSG 
field of the ECT contains the address of a second-level 


CHAINOUT 


IKJEFT52 


BK 


message chain. 









Obtains Commands 



1 Enters "COMMAND MODE." 
P Checks current source of input. 

3 Obtains commands from the terminal. 
• Sends out mode message. 

o Obtains a line from the terminal. 



If '? ' ■ 

was A 
received 



Sends out 2nd level 
Message. 

Sends a line from 
terminal. 



Returns to Caller. 
- OR - 
4 Obtains commands from the in-storage list. 



a) • If PAUSE | 

was 
specified 



b) •If?' ■ 
was 1 
received 



Sends out PAUSE 
message. 

Obtains a line 
from terminal. 



Sends 2nd level 
message. 

Obtains line from 
the terminal. 



c) Obtains a line from list. 

d) Lists line if from procedure element. 



X, 



c 



£ 



v- 



c 



SUBPOOL 1 



SUBPOOL 1 



u 



^ 



^^■K RETURN J 



RESULT 



K 



TPUT/TGET 



fc 



TPUT/TGET 




K= 



TPUT/TGET 



£ 



TPUT/TGET 



Terminal 



Y\ 



In-Storage List 



A PUT Options 



Bit settings that indicate the output operations 
to be performed by PUTGET, as follows: 


Bit 


Meaning when set 





1 
2 
3 


Reserved (0). 
Reserved (0). 
Always zero for PUTGET. 
Single-level format. 




4 


Always zero for PUTGET. 




5 


Multi-level format. 




6 


Always zero for PUTGET. 




7 
8 
9 


Prompting message. 
Mode message. 
Reserved (0). 





B TPUT Options 



Bit settings that indicate the TPUT options 
requested, as follows: 

Bit Meaning when set 



Always zero for TPUT. 
Reserved (0). 

NOWAIT processing requested. 
HOLD processing requested. 
BREAKIN processing requested. 
CONTROL processing requested. 
ASIS processing requested. 





1-2 
3 
4 
5 
6 
7 
8-15 Reserved (0). 



For further information about TPUT options, 
refer to IBM System/360 Operating System 
Time Sharing Option Guide to Writing a 
Terminal Monitor Program or a Command 
Processor , GC28-6764. 



Key Description 


Routine 


Label 


Flowchart 


• Sends " NO INFORMATION AVAILABLE " message if the 
ECTSMSG field of the ECT contains zero. 








o Frees storage obtained for the second-level messages and zeroes 
the ECTSMSG field in the ECT. 


UNCHAIN 


IKJEFT53 


BL 


• Sends a line to the terminal. 


TERMOUT 


IKJEFT56 


BR-BS 


b) If the line does not begin with a question mark ("?") , return to 
caller. ( If the line begins with another question mark, 
repeat step 3a ) . 








4 If an in-storage list is the current source of input, PUTGET obtains 
commands from the list, as follows: 


PUTGET 


IKJEFT45 


BF-BJ 



Key Descri 


ption 


Routine 


Label 


Flowchart 


a) 


If the UPTPAUS bit is set in the UPT : 










• Sends PAUSE message to the terminal. 


TERMOUT 


IKJEFT56 


BR-BS 




• Gets a line from the terminal. 


GETLINE 


IKJEFT55 


BP-BQ 


b) 


If the line begins with a question mark ("?"), sends second-level 
messages to the terminal as in step 3a. If line is a carriage return, 
deletes chain. Prompts user for proper message and repeats step 4a. 








c) 


• Gets a line from the in-storage list. 


GETLINE 


IKJEFT55 


BP-BQ 




• If EOD is returned from the in-storage list, repeats step 2. 


STACK 


IKJEFT30 


BA-BC 


d) 


o Lists the line if from an in-storage procedure with 
LIST specified. 









C GET Options 



Bit settings that indicate the input operations 
to be performed by PUTGET, as follows: 



ill 


1 
2 
3 
4- 



15 



Meaning when set 

Reserved (0). 
Not used in PUTGET. 
Not used in PUTGET. 
Demand from terminal. 
Reserved (0). 



D TGET Opti< 



Bit settings that indicate the TGET options 
requested as follows: 

Bit Meaning when set 

Always set for TGET. 

1-2 Reserved (0). 

3 NOWAIT processing requested. 

4-6 Reserved (0). 

7 ASIS processing requested. 

8-15 Reserved (0). 



For further information about TGET options, 
refer to IBM System/360 Operating System 
Time Sharing Option Guide to Writing a 
Terminal Monitor Program or a Command 
Processor , GC28-6764. 



LEGEND 
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INPUT 



Register 1 



Input/Output Parameter List (IOPL) 



From Parse Service Routine or other TSO 
problem program using PUTGET or 
LOAD/CALL macro instructions 



INSTACK 



I UPT 



I ECT 



| ECB 



I PGPB 





ECT 


' 









IOSRL 



\ Top 



\ Bottom 




OLD 



/ PUTGET Parameter Block (PGPB) 


A PUT 

Options 


R TPUT 

D Options 


\ Output Line Descriptor / 


n GET 
^ Options 


TGET 
D Options 


^ Input Buffer 





OLD 




^^ 




/ 






Message "*" 




Segments 


























v 






First-Level 
Message 



Secondary-level 
Messages 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


1 Prompt Mode is requested when bit 7 of the PUT Options field is set. 


PUTGET 


IKJEFT45 


BF-BJ 


( If bit 7 is zero, refer to Diagram 1 1 for Command Mode. ) 








2 If a command procedure is the current source of input, or if the UPTNPRM 


PUTGET 


IKJEFT45 


BF-BJ 


bit is set in the UPT, then PUTGET is unable to prompt and returns an 








error return code. 








3 If the terminal (or an in-storage list containing source data) is the 








current source of input, PUTGET obtains operands or data from the 








terminal, as follows: 








• Formats the output line in a buffer-, if necessary. 


TEXTIN 


IKJEFT54 


BM-BN 


• Sends the line to the terminal. 


TERMOUT 


IKJEFT56 


BR-BS 


a) • Gets a line from the terminal. 


GETLINE 


IKJEFT55 


BP-BQ 


b) If the line begins with a questionmark ( "? ") : 








• Formats and next-level message to the terminal. 


CHAINOUT 


IKJEFT52 


BK 


• Sends "NO INFORMATION AVAILABLE " message if no 








next- level message was provided. 








• Repeats step 3a. 


GETLINE 


IKJEFT55 


BR-BS 


c) If the line does not begin with a questionmark ("? "), return to caller. 








(If the line begins with a questionmark, repeat step 3b.) 









PROCESSING 
PUTGET Service Routine 



RESULT 



IKJPTGT 



Obtains operands and data. 



1 Enters " PROMPT MODE ". 

2 Returns if prompting is not possible. 

-OR- 

3 Obtains operands and data. 

• Sends out prompt message. 

(a) • Obtains a line from the 
terminal. 

(b)« If '?' was received. 



U 



Sends out 2nd 
level message. 

Obtains a line 
from terminal. 



SUBPOOL 1 



^ 



<J 



(c) • Returns Input line to caller. 



t 



f RETURN J 



C GET Options 



Bit set 


hings that 


"ndicate the i 


nput 


operations to be 


performed by 




PUTGET, as follows: 




Bit 


Meaning 


when set 







Reserved 


(0). 




1 


Not used 


in PUTGET. 




5 


Not used 


in PUTGET. 




3 


Demand from terminal 




4-15 


Reserved 


(0). 





PL 



LEGEND 



D TGET Options 



Bit settings that indicate the TGET 
options requested, as follows: 

Bit Meaning When Set 

Always set for TGET. 

1-2 Reserved (0). 

3 NOWAIT processing requested. 

4-6 Reserved (0). 

7 ASIS processing requested. 

8-15 Reserved (0). 



For further information about TGET 
options, refer to IBM System/360 
Operating System Time Sharing 
Option Guide to Writing a Terminal 
Monitor Program or a Command 
Processor, GC28-6764. 



A PUT Option 




Bit settings that indicate the output 


operat 


ions to be performed by PUTGET, 


as follows: 


Bit 



Meaning when set 


Reserved (0). 


1 


Reserved (0). 


2 


Always zero for PUTGET. 


3 


Single-level format. 


4 


Always zero for PUTGET. 


5 


Multi-level format. 


6 


Always zero for PUTGET. 


7 


Prompting message. 


8 


Mode message. 


9 


Reserved (0). 



B TPUT Options 



Bit settings that indicore the TPUT 
options requested, as follows: 

Bit Meaning when set 





1-2 

3 

4 

5 

6 

7 

8-15 Reserved (0). 



Always zero for TPUT. 
Reserved (0). 

NOWAIT processing requested. 
HOLD processing requested. 
BREAK IN processing requested. 
CONTROL processing requested. 
ASIS processing requested. 



For further information about TPUT 
options, refer to IBM System/360 
Operating System Time Sharing Option 



Guide to Writing a Terminal Monitor 
Program or a Command Processor , 
GC28-6764. 
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ATTACH from the LOGON/LOGOFF 
Scheduler via MVT Job Management 



CROSS REFERENCE TABLE 



Key Description 



Terminal Monitor Program 



Handles TSO Commands 



I Links to Command Scan to Scan 
buffer for command. 



3 Receives pointer to command 
y name. 



4 Gives control to appropriate 
command processor. 



ATTACH 



TSO Command 
Processor 



Processes TSO Command 



5 Links to Parse to scan buffer for 
parameters. 



7 Receives pointers to parameters 
in order expected. 



8 Processes command according to 
parameters received. 



1 The Terminal Monitor Program gets a line of input from the terminal. 
The TMP links to the Command Scan service routine and passes it the 
address of the Command Buffer. 



2 The Command Scan service routine scans the Command Buffer for 
a syntactically correct command name, updates the buffer offset 
field, and returns control to the TMP. 



3 The Terminal Monitor Program receives the address of the correct 
command name and gives control to the appropriate TSO command 
processor. 



Routine 



Terminal 
Monitor 
Program 



Command 
Scan 
service 
routine 



Label 



C 



IKJEFT02 



IKJSCAN 



IKJEFT02 



Terminal 
Monitor 
p rogram Refer to part 1 of this book 



F.C. 



AC 



EF 



AC 



LINK 



RETURN 



CSOA 



Command Buffer 



length 




Diagram 



14 



_L 



J_ 



offset 




Command 



Parameter 



Parameter 






LINK 



RETURN 



RETURN 



3 



To Terminal 
Monitor Program 



Key Description 



4 The TSO command processor links to the Parse service routine and passes 
it the address of the Command Buffer and a Parameter Control List (PCL) 
that describes the parameters to be expected. 



5 The Parse service routine scans the Command Buffer for the parameters 
expected, builds a Parameter Descriptor List (PDL) that describes the 
parameters found, updates the buffer offset, and returns control to the 
TSO command processor. 

6 The TSO command processor processes the command according to the 
parameters received. 



Command Scan 



IKJSCAN 



Scans For Command Name 



2 Scans Command Buffer for 
Command Name. 



r 




Parse 



IKJPARS 



Scans For Parameters 



6 Scans Command Buffer for 
Command Parameters. 



Routine 



Label 



F.C. 



Diagram 



Refer to TSO command 
processors program logic 



Parse 

service 

routine 



IKJPARS 



CA 



15 



Refer to TSO command 
processors program logic 
manual 



LEGEND 
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Command Scan and Parse Service Routines 
(Overview) 
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INPUT 



PROCESSING 



RESULT 



LINK from 
TMP 



Register 1 
i' Command Scan Parameter List (CSPL) 



k i itvr 



Flag Word 



UPT 



ECT 



I CWCB 



f Flag Word 



\ CSOA 



t 



CBUF 



Flags A 



k Command Buffer 



Command Scan Service Routine 



IKJSCAN 



Scans Buffer for Valid Command Names 



Reserved 



1 Scans Buffer for 2 Optionally Syntax 3 Translates to Upper 

Command Name. Checks Command Case. 

Name. 



I 



4 Fills in CSOA and 
Updates Offset in 
Command Buffer. 



I 



5 Returns to Caller. 



(CBUF) 



Length 


/ 
Offset 


Command Name 



( RETURN J 



Command Scan Output Area (CSOA) 



S} i Command Na 



Length 



Flags B 



Reserved 



B Output Flags 



A Input Flags 



Flag 


Meaning 


X'OO' 
X'80' 


Syntax check 
No syntax check 



Flag 


Meaning 


Buffer Offset set to : 


X'80' 


Command name is valid; the remainder of the buffer 
contains non-separator characters. 


First non-separator character 
following command name. 


X'40' 


Command name is valid; the remainder of the buffer 
is empty (contains only separator characters). 


End of buffer. 


X'20' 


Command name is Questionmark. 


Unchanged. 


X'10' 


Buffer is empty (contains only separator 
characters). 


End of Buffer. 


X'08' 


Command name is syntactically invalid. 


Unchanged. 



LEGEND 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


During initialization, an unconditional GETMAIN is issued for a 


IKJEFP30 


IKJSCAN 


EF 


Command Scan Work Area (CSWORK). 








1 Separators are skipped to the beginning of a command name. If the 


IKJEFP30 


SKIPB 


DS 


buffer is empty or if the first character is a questionmark, the program 








exits. Otherwise the scan continues to the next delimiter. 








2 If the high order byte of the Flag Word is X'OO' the command is syntax 


IKJEFP20 


GENSCAN 


EC 


checked. Otherwise the command name must contain valid, enterable 








characters and end with a delimiter. 


IKJEFP30 


TYPETEST 


DU 


3 Correct command names are translated to uppercase. 


IKJEFP20 


TRANSX 


EE 


4 The CSOA is set to indicate the results of the scan and the buffer offset 


IKJEFP30 


CSEXIT80 


EG 


is updated as shown in A 




CSEXIT40 


EG 






CSEXIT20 


EG 






CSEXIT10 


EF 






CSEXIT08 


EF 


5 Command Scan returns to caller. 


IKJEFP30 


CSEXIT 


EF 



w+ 
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INPUT 



PROCESSING 



RESULT 



Register 1 
Parse Parameter List (PPL) 



Parameter Control List (PCL) 



f Parameter Control List 



| Command Buffer 



Contains Parameter 
Control Entries (PCEs) 
that Describe 
Parameters Expected. 




Parse Service Routine 



IKJPARS 



LINK from TSO 
Command Processor 

IKJPARM PCE 



IKJIDENT, IKJPOSIT, IKJTERM, 
IKJOPERor IKJSVWD PCEs _ 

IKJKEYWD, IKJRSVWD PCEs 
followed by 1KJNAME PCEs 

i IKJKEYWD ) fo „ owedby 



IKJENDP PCE 



Scans Buffer for Valid Command Parameters 



1 Set Up and 
Initialize 



PPL Header Entry 



Parameter Descriptor List (PDL) 



2 Scan for _ 
Positional" 



IKJIDENT, IKJPOSIT, IKJTERM, 
IKJOPERor IKJRSVWD PDEs 



Parameters 



IKJRSVWD or 
IKJKEYWD PDEs 



► 3 Scan for . 



Keyword or Reserved 
Word Parameters and 



Scan for " 
Subfields 



(IKJIDENT 

J IKJPOSIT or} PDEs 

( IKJKEYWD 



>4 Return to 
Caller 



75T 



7% 




. Command Buffer 



length 



offset 



MiM 






f RETURN J 



Positional Parameters, Keywords, Reserved Words, Subfields 



Note: Other input buffers are obtained when the terminal is prompted 
for additional input. See Operation Diagram 8 for a description of 
the Input Stack. 



\-}° J ijfii Contains Parameter 1~;i*\ 



$ 



>m. 



Contains Parameter 
Descriptor Entries (PDEs) ['i'^'\ 
that Describe Parameters 
Found. PH® 






"■•m^-m^ ■■■■■;■■ ■■■■ 






LEGEND 



CROSS REFERENCE TABLE 










Key Description 


Routine 


Label 


Flowchart 


Diagram 




Parse gets PCEs from the PCL and constructs PDEs in the PDL. The 












operations performed depend upon the type of PCE being processed. 










1 


The IKJPARM PCE determines much of what is done during Parse 
initialization. It names the PCL and PDL (default name is IKJPARMD ), 
gives the length of the PCL and PDL, and gives the offset in the PCL of 
the next IKJKEYWD, IKJSUBF, or IKJENDP PCE. 


IKJEFPOO 


IKJPARS 


CA 


16 


2 


The IKJIDENT, IKJPOSIT, IKJTERM, IKJOPER and IKJRSVWD PCEs 


IKJEFP01 


IDENT 


DJ 


17 




determine much of what is done during a scan for positional parameters. 


IKJEFPOO 


POSIT 


CE 


17 




The parameters must appear in the command buffer in the same order 


IKJEFP40 


IKJEFP40 


FF 


17.1 




that their PCEs appear in the PCL. All positional parameters must 


IKJEFP50 


IKJEFP50 


FA 


17.1 




come before any keyword parameters. 


IKJEFP60 


IKJEFP60 


FL 


17.1 



Key Description 


Routine 


Label 


Flowchart 


Diagram 


3 The IKJKEYWD or IKJRSVWD with IKJNAME PCEs determine much of what 


IKJEFPOO 


KEYWDP 


DL 


18 


is done during a scan for keyword or reserved word parameters. The 










IKJKEYWD or IKJRSVWD PCE marks the beginning of a keyword or 


IKJEFP40 


IKJEFP40 


FF 


17.1 


reserved word field while the following IKJNAME PCEs define eligible 










names for the keyword or reserved word. 










Keywords may have subfields that include both positional and keyword 










parameters. The IKJSUBF PCE marks the beginning of a subfield and 










the end of a previous field. 










4 The IKJENDP PCE marks the end of the PCL. Parse checks to see if 


IKJEFPOO 


ENDFIELD 


CB 


18 


the scan is complete before returning control to the calling routine. 
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I > Data Made Available 
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INPUT 



From Operation Diagram 15 "Scanning 
for Parameters". 























Parameter Control List 




> 




IKJPARM PCE 






rarse raramerer List 




















A PCL 


y 




^ Answer Place ^ 




Answer Place 














| PDL 












:;;;;:■; : :| 


or X'FFOOOOOO* if storage was 
not available for PDL. 





PROCESSING 
Parse Service Routine 



RESULT 



IKJEFPOO 




Sets up PDL and Parse Work Areas 



Sets Up PDL. 



PDL 



2 Builds Parse Permanent ~ 
Workspace. Builds Parse 
Recursive Workspace. 



PWORK 



^>B 



PWORK 



Loads PUTLINE and PUTGET ZZZZI."""^ V— J> 
Service Routines. 



Loads IKJPARS2 Service Routine ; 
if Required. 



5 Start Scanning. 



t 

© 



! I 







PUTGET 






Service 






Routine 




PUTLINE 








— \ 

--v 


Service 
Routine 





~X^) 



\ ^-- 



^ 



PARS2 

Service 

Routine 



To scan for Positional 
Parameters described 
by the IKJIDENTor 
IKJPOSIT macro 
instructions. 



To scan for Positional Parameters 
described by the IKJTERM, 
IKJOPER or IKJRSVWD macro 
instructions. 



B 





Parameter Descriptor (PDL) 






PDL Header Entry 















Parse Permanent Workspace (PWORK) 






Save Areas, Parameter List for 
Routines, Parse Input Stack, 
Internal Tables, and Work Areas. 













Parse Recursive Workspace (RWORK) 






Addresses of Data Areas Used by 
Parse when Searching for Parameters 
in a Subfield. FLAGS which tell 
Parse what to Do Next. 











LEGEND 



CROSS REFERENCE TABLE 



Key 


Description 


Routine 


Label 


Flowchart 


1 


Parse gets main storage for the PDL from subpool 1 . The DSECT for the 
PDL is named according to the value specified by the IKJPARM PCE. 
The default name is IKJPARMD. 


IKJEFPOO 
IKJEFP02 
IKJEFPOO 


IKJPARS 
STALOC 


CA 
DR 


2 


Storage is obtained for the Parse Work Area (PWORK) and first Recurse 
Work Area (RWORK) from subpool 0. Both work areas are initialized 
with information from the Parse Parameter List (PPL). 


IKJEFPOO 
IKJEFP02 


IKJPARS 
GETCORE 


CA 
DU 




• Additional Recurse Work Areas are obtained each time a subfield 
is processed. 


IKJEFPOO 


RECURSE 


CA 


3 


The PUTLINE and PUTGET service routines are loaded. 


IKJEFPOO 


IKJPARS 


CA 


4 


Parse loads IKJPARS2 Service Routine if the IKJTERM, IKJOPER or 
IKJRSVWD macro instruction is coded. 


IKJEFP60 


IKJPARS2 


FA 


5 


Parse is ready to get the next PCE and start the scan. 


IKJEFPOO 


NEXTPCE 


CA 



■t 


Start of Diagram 
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Data Flow 
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1, 2 ,etc. 
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INPUT 



PROCESSING 



RESULT 



Parameter Control List (PCL) 





I 'l'yy : *'\];' . 


■ *'' ^ <\ : \ •*' - ^ ' '- 




IKJIDENT PCE 


IKJPOSIT PCE 


HKJTERMPCE 


IKJOPERPCE 


IKJRSNWDPCE 




i - r 



From Operation Diagram 16 
"Set Up and Initialization " 
or (when processing 
positional parameters within 
a subfield) from Operation 
Diagram 19 "Scanning for 
Keywords and Subfields". 



Parse Service Routine 



IKJPARS 



Repeat Step 1 



To Operation | 19 
Diagram 19 
"Scanning for 
Keywords and Subfields 



See Diagram 18 for a 
description of the 
PARS2 PCEs. 




Parameter Descriptive List (PDL) 



IKJIDENT PDE 



IKJPOSIT PDE 



LIST and RANGE Options 



LIST OPTION 

If the LIST option is specified, one word is added to the basic PDE. If a list is entered from the terminal, 
this word is used to chain the elements of the list together as shown below. The chain word for the last 
PDE is set to X 'FFOOOOOO'. (If the list is not entered from the terminal, the chain word for the basic 
PDE will contain X 'FFOOOOOO'.) 



BasU 







Basic PDI 



X ' FFOOOOOO ' 



1 



Basic PDE 



X 'FFOOOOOO ' 



list entered from the terminal 



no list entered from the terminal 



RANGE OPTION 

If the RANGE option is specified, two identical PDEs are created. (If the range is not entered from the 

terminal, the second PDE contains zeroes.) 




range entered from the terminal 




no range entered from the terminal 



COMBINING THE LIST AND RANGE OPTIONS 

If both the LIST and RANGE options are specified, two identical PDEs are created for each element in the 
list as shown below. 



Basic 
PDE 




Basic PDE 



Basic PpE 



X ' FFOOOOOO ' 



LEGEND 


^fe Start of Diagram 
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1 N > Data Flow 


LIZ" ^ Data Made Available 
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/ Pointer to, or Address of 


»- Reference to 


1)2 j etc. Refer to Corresponding Number 


A,D, etc. Refer to Corresponding Letter 







JIDENT PCE 


























IKJPOSIT F 
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CROSS-REFERENCE TABLE 


* IK 


.s ► 






















t-ts 
























Key Description 




DELIMITER 


STRING 


VALUE 


ADDRESS 


PSTRING 


USERID 


DSNAME/DSTHING 


QSTRING 


SPACE 


1 The IKJIDENT PCE describes a positional parameter in the form of a character string with optional 
restrictions on the first character, other characters, and length. 

The IKJPOSIT PCE describes a positional parameter which includes a delimiter as part of its syntax. 
There are 10 kinds of IKJPOSIT PCEs and each has its own processing routine. 

Z The buffer is scanned for the parameter. 

• If the parameter is missing, the PCE is checked to see if it is required or if there is a default. 

- If the parameter is required, the terminal is prompted for the parameter. 

- If there is a default, the default is supplied. 

- If the parameter is not required, Parse gets the next PCE. 

3 If the parameter is found (or defaulted) the parameter is checked for correct syntax. 

• If an error is found, the user is prompted to reenter the parameter and step 2 is repeated. 

4 If the parameter is correct, a PDE is built and the parameter is translated to upper case. 
If a list is being processed, step 2 is repeated for each element in the list. 

5 If the calling routine has specified a validity check exit, the validity check exit routine is entered. 
If a range is being processed, the complete range is passed to the exit routine. If a list is being 
processed, each element in the list is passed to the exit routine. 

• If an error is found, the terminal is prompted to reenter the parameter and step 2 is 
repeated. 
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INPUT 
Parameter Control List (PCL) 



PROCESSING 



IKJTERM PCE 



IKJOPER PCE 

or 

IKJRSVWD PCE 



From Operation Diagram 16 
"Set Up and Initialization " 




PARS2 Service Routine 



Step 1 



To Operation I 17 
D.iagram 17 



Scan Buffer For Positional Parameters 



1 Obtains 
next PCE 



£. Scans Buffer 3 Checks 

for Parameter Syntax 



4 Builds 
PDE 



Parse 
Input Stack 




/'Input Buffer 




^ 


length 


offset 


positional parameters 



IKJPARS2 



RESULT 
Parameter Descriptive List (PDL) 




Repeat 
Step 1 



IKJTERM PDE 



IKJOPER PDE 

or 

IKJRSVWD PDE 



LIST and RANGE Options 



LEGEND 



LIST OPTION 

If the LIST option is specified, one word is added to the basic PDE. If a list is entered from the terminal, this 
word is used to chain the elements of the list together as shown below. The chain words for the last PDE is set 
to X'FFOOOOOO 1 . ( If the list is not entered from the terminal, the chain word for the basic PDE will contain 
X'FFOOOOOO'.) 





list entered from the terminal 



no list entered from the terminal 



RANGE OPTION 

If the RANGE option is specified, two identical PDEs are created. ( If the range is not entered from the 

terminal, the second PDE contains zeroes.) 




range entered from the terminal 




no range entered from the terminal 



COMBINING THE LIST AND RANGE OPTIONS 

If both the LIST and RANGE options are specified, two identical PDEs are created for each element in the 
list as shown below. 




^ 


Start of Diagram 


"™* 


Control Flow 


^=> 


Data Flow 


^=---4> 


Data Made Available 


\f 


Pointer to, or Address of 


^ 


Reference to 


1 , 2 , etc . 


Refer to Corresponding Number 


A, B,etc. 


Refer to Corresponding Letter 



CROSS-REFERENCE TABLE 



CROSS-REFERENCE TABLE 



Key Description 



4 



• The IKJTERM PCE describes a positional parameter that may be entered 
as a Constant, Variable or Statement Number. 

• The IKJOPER PCE describes a positional parameter that may be entered 
as an EXPRESSION. 

• The IKJRSVWD PCE describes a positional parameter that may be 
entered as a Reserved Word. (Also see note 1 ). 

The buffer is scanned for the parameter. 

• If the parameter is missing, the PCE is checked to see if it is 
required or if there is a default. 

If the parameter is required, the terminal is prompted for the 
parameter. 

If there is a default, the default is supplied. 

If the parameter is not required, Parse gets the next PCE. 

If the, parameter is found (or defaulted) the parameter is checked for 
correct syntax. 

• If an error is found, the user is prompted to reenter the parameter 
and step 2 is repeated. 

If the parameter is correct, a PDE is built and the parameter is translated 
to upper case. If a list is being processed, step 2 is repeated for each 
element in the list. 

If the calling routine has specified a validity check exit, the validity check 
exit routine is entered. If a range is being processed, the complete range 
is passed to the exit routine. If a list is being processed, each element in 
the list is passed to the exit routine. 

• If an error is found, the terminal is prompted to reenter the 
parameter and step 2 is repeated. 



IKJPARS Routines Used by IKJPARS2 


Flowchart 


CLEANUP 


- Free core, delete modules, exit 


EB 


GENSCAN 


- Parameter scan routine 


EC 


GETCORE 


- Obtain storage (release before exit) 


DU 


LISTT 


- Test for LIST entered 


DT 


NAMESKP3 


- Skip to next PCE routine 


CE 


NEXTPCE 


- Go to next PCE routine 


CA 


PARS2ENT 


- Entry into IKJPARS from IKJPARS2 when subroutine 
functions are required 




POSITX 


- Add PDE to PDL routine 


EA 


PROMPTQ 


- Prompt with 'ENTER...' routine 


DP 


PSTRIMSG 


- Ending parenthesis assumed message 


CW 


PUSHI 


- Push the stack routine 


DS 


QSTRING 


- Quoted string routine 


DF 


RANGE 


- Test for a RANGE entered 


DT 


SCANF 


- Pop the stack routine 


DQ 


SKIPB 


- Skip blanks routine 


DS 


STALOC 


- Allocate storage in Subpool 1 


DR 


SYSR1 


- Write 'INVALID' message, then prompt 


EA 


TRANSQ 


- Translate to uppercase routine 


EE 


TYPETEST 


- Test for character type routine 


DU 



Note 1: The IKJRSVWD macro instruction can also be chained to the 

IKJTERM macro and the IKJOPER macro to define the beginning 
of a list of reserved words. 




IKJTERM — . 






, 




^ IKJRSVWD 
IKJNAME 
IKJNAME 
IKJNAME 
IKJNAME 

1* IKJNAME 


• 


f 
The IKJNAME macros are used to list 
the possible Figurative Constants that 
can be entered for the IKJTERM macro 
by the terminal user. 










IKJOPER — . 






^ IKJRSVWD 
IKJNAME 
IKJNAME 
IKJNAME 

IKJNAME 


[ The IKJNAME macros are used to list 
\ the possible Operators in an Expression 
(j-hat can be entered by the terminal user. 
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Parameter Control List (PCL) INPUT 



Parse Service Routine 



PROCESSING 



IKJPARS 



IKJKEYWD PCE 



IKJNAME PCE 



IKJNAME PCE 




IKJENDP PCE 



From Operation 
Diagram 17 " Scanning I 
for Positional 
Parameters " 



Scans For Keywords and Subfields 




If IKJNAME or IKJSUBF PCE, 
repeat Step 1 . 

If IKJENDP PCE, goto Step 5. 



2 Scan Buffer for Parameter and 
Compare to IKJNAME PCEs 



PUTLINEandPUTGET! 



Prompt terminal for Input. 



Parse Input 
Stack 




Input Buffer 



length 



offset 



keyword parameters 



Note: See Figure 19 for a description 
of Input Stack. 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


1 


The IKJKEYWD PCE marks the beginning of a keyword field and 
specifies options for that field. 


IKJEFPOO 


KEYWDP 


CD 


2 


The buffer is scanned for a keyword and the result is compared to the 
names specified by the IKJNAME PCEs. 


IKJEFP02 


KEYWD 


DL 


3 


If a match is found, the IKJKEYWD PDE is built and the IKJNAME PCE 
is checked for a subfield. 


IKJEFP02 


KEYWDNAM 


DM 




• If no match is found, the terminal is prompted to reenter 
the parameter. 


IKJEFP02 


PROMPTQ 


DP 




• If more than one match is found, all previous PDEs built for 
the keyword are erased, and the terminal is prompted to 
reenter the parameter. See "Erasing PDEs" in Section l. 


IKJEFPOO 
1KJEFP02 


KEYWD ER4 
PROMPTQ 


CD 
DP 


4 


If the keyword name has a subfield, Parse interrupts the scan for the 
keyword field and processes the subfield in exactly the same way that 
it would process a field. When an IKJSUBF or IKJENDP PCE is reached, 
Parse resumes the scan for the keyword field. 


IKJEFP02 

IKJEFPOO 
IKJEFPOO 


KEYWDSUB 

ENDFIELD 
KEYWDP 


DN 

CB 
CD 



3 Build IKJKEYWD PDE 
and Check for Subfield. 




4 Build Subfield PDEs. 
If end of list: 



5 Build Default IKJKEYWD 
PDEs. 



I 



6 Return to Caller. 



t 



f RETURN ^ 

To TSO Command 
Processor 



RESULT 



Parameter Descriptor List (PDL) 



► Repeat Step l . 




V 



To Operation Diagram 17 
to Scan for Positional 
Parameters in a Subfield. 



Key 


Description 


Routine 


Label 


Flowchart 




5 


When all of the keyword fields have been scanned, Parse checks 
each IKJKEYWD PCE to see if the corresponding PDE has been built. 


IKJEFPOO 


KEYWDP 


CD 






• If not, a default value is supplied. 

(Keyword parameters are never required.) 


IKJEFP02 


PROMPTQ 


DP 




6 


When an IKJENDP PCE is reached, Parse checks to see if the scan 
is complete. 


IKJEFPOO 


ENDFIELD 


CB 






• If the scan has reached the end of the buffer, Parse returns 


IKJEFPOO 


ENDX1 


CC 






control to the calling routine. 












• If the scan has not reached the end of the buffer, Parse 
writes an "extraneous data " message, or an "invalid 
keyword " message if there are keyword PCEs in the PCL, 
and returns control to the calling routine. 


IKJEFPOO 


ENDX2 


CC 



LEGEND 




^ 


Start of Diagram 


IH Ww 


Control Flow 
Data Flow 


K 


1 ^ 


c-zzt> 


Data Made Available 


\J 


Pointer to, or Address of 




Reference to 


1,2, etc. 


Refer to Corresponding 
Number 


A,B,etc. 


Refer to Corresponding 
Letter 
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CROSS REFERENCE TABLE FOR DAIR 



Key 


Description 


Routine 


Label 


F.C. 


M.O. 


1 


At entry, DAIR gets main storage for the DAIR Work Area (DAIRWA) and initializes 
it, gets the address of the DSE, gets a DAIR Parameter Block (DAPBnn, where nn is 
the DAIR entry code) and branches and links to the corresponding DAIR subroutine. 


IKJEFD00 


DAIRCTRL 


FA 




2 


The DAIR entry code specifies the requested service as follows: 
Code Operation 












X'OO' Search the DSE chain for a data set by DDNAME or DSNAME. 


IKJEFD00 


DAIR00 


FB 






X'04' Search the DSE chain for a data set by DSNAME; if not found, search 
the system catalog. 


IKJEFD00 


DAIR04 


FC 






X'08' Allocate a data set by DSNAME — Invoke SVC 99 DATASET function. 


IKJEFD00 


DAIR08 


FD-FG 






X"0C Concatenate data sets by DDNAME — invoke SVC 99 CONCAT function. 


IKJEFD00 


DAI ROC 


FH 






X'10' Deconcatenate data sets by DDNAME — invoke SVC 99 DECONCAT 
function. 


IKJEFD00 


DAIR10 


FJ 






X'14' Search the system catalog for all qualifiers for a DSNAME. 


IKJEFD00 


DAIR14 


FK 






X'18' Free a data set — invoke SVC 99 UNALLOC function. 


IKJEFD00 


DAIR18 


FL-FM 






X'lC Allocate a data set to the terminal -- invoke SVC 99 DATASET function. 


IKJEFD00 


DAIR1C 


FN-FP 






X'24' Allocate a data set by DDNAME (first) or DSNAME — invoke SVC 99 
DATASET function. 


IKJEFD00 


DAIR24 


FQ 






X'28 1 Perform a list of operations indicated by other DAIR entry codes. 


IKJEFD00 


DAIR28 


FR 






X'2C ! Free DSE entries for the specified task — invoke SVC 99 UPDATE function. 


IKJEFD00 


DAIR2C 


FS 






X'30' Allocate a SYSOUT data set — invoke SVC 99 DATASET function. 


IKJEFD00 


DAIR30 


FT 




3 


Returns to the calling program with return code in register 15. See Figure 34 for the 
return codes and their meanings. 


IKJEFD00 


EXITCODE 


FA 




4 


At entry, SVC 99 gets control at entry point IGC00099, the beginning of the allocation 
control routine. This routine gets main storage for and partially initializes the dynamic 
allocation work table (DAWT) and invokes the queue management routines to read the 
queue address (SIOTTTR) associated with the first DDNAME in the dynamic allocation 
parameter block. Also, by referring to the function code in the second two bytes of 
the parameter block, the routine determines which of the dynamic allocation 
functions will subsequently receive control, as follows: 

Code Function Performed by SVC 99 


IGC00099 


CONTROL 








X'OO' Update the Data Set Extension (DSE) 


IGC25099 


UPDATE 


JG 


25 




X'OT Define or allocate a data set by DDNAME. 


IGC07099 


DATASET 


JB 


20 




X '02 * Free a data set by DD NAME . 


IGC01099 


UNALLOC 




21 




X'03 1 Concatenate a data set by DDNAME. 


IGC 18099 


CONCAT 




23 




X'04' Deconcatenate a data set by DDNAME. 


IGC23099 


DECONCAT 


JE 


24 




X'06 1 Change the attribute of a currently allocated data set. 


IGC 16099 


CONVERT 


JF 


22 


5 


Returns to DAIR. Normally this return is from one of the update routines at the 
conclusion of processing for any specified function. In case of error, any routine 
in SVC 99 can return control with an error return code in register 15. See Figure 35 
for these return codes. 


IGC25099 
IGC26099 
IGC27099 
IGC29099 


UPDATE 


JG 





Dynamic Allocation Interface Routine (DAIR) 



SVC 99 Dynamic Allocation 



fi^ Task Input/Output 
Table (TIOT) 



LINK from TSO Problem 
Program 



Register 1 



Provide the Service 
Requested by the 
DAIR Entry Code 




DAIR 
4 Parameter List (DAPL) 



^ Set Up and Initialize. 



2 Perform the requested 



UPT 



ECT 



Caller's ECB 



PSCB 



DAIR Parameter Block 



DAIR 
Parameter Block 



4: 



DAIR Entry Code 




/\ Sample LOGON Procedure and Resulting TIOT 



//USERID 

//USERPROC 

//STEP LIB 

// 

// 

//DD1 

//DD2 

//SYSUT1 

//HELPDD 

//DD3 

//DD4 



EXEC PGM = IKJTMP 

DD DSN=D82J0B08,DISP = SHR 

DD DSN = PUTCMD,DISP = OLD 

DD DSN=SYS1.CMDUB,DISP = SHR 

DD DYNAM 

DD DYNAM 

DD DSN = &&SYSUT1,UNIT=2314,SPACE = (TRK(10,5)) 

DD DSN SYS1.HELP,DISP = SUR 

DD DYNAM 

DD DYNAM 



TIOT 



For a more detailed 
description of the TIOT, 
refer to the IBM 
System/360 Operatin g 
System, System Control 
Blocks SRL, GC28-6628. 



USERID 


USERPROC 


USERPROC 


STEPUB 


|UCB 


% 


JUCB 


t 


fuCB 


DD1 





DD2 





SYSUT1 


JUCB 


HELPDD 


JUCB 


DD3 





DD4 









B 



Data Set Extension (DSE) 



The Data Set Extension (DSE) 
contains information about the 
status of data sets and their 
availability to Dynamic 
Allocation routines. 

When first constructed, the 
elements in the chain are in 
the same order as the 
corresponding DD statements 
in the user LOGON procedure. 

Thereafter, the top element 
represents the most recently 
allocated data set, while the 
bottom element represents the 
most recently freed data set. 
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CROSS-REFERENCE TABLE FOR DATASET 



Key Description 



The input SIOTTTR (relative track address record) contains the 
pointer (TTR) to the SIOT containing the first user-supplied 
DDNAME in the dynamic allocation parameter block from DAIR. 

Preparing the DAWT includes inserting the parameter block 
address for use by the allocation routines, reading key 
information from the TIOT extension into DAWA1, and reading 
the input SIOTTTR into DAWA2. 

The dynamic allocation parameter block contains the address and 
control information necessary for the DATASET function to 
allocate a data set dynamically. Refer to "Section 5: Data 
Areas" for a complete description of the parameter block 
contents. 



Validity checks include the following: 

• Name checking (NAMECK subroutine). 

• DDNAME1 TIOT DD entry is — 

- Available for dynamic allocation (a DYNAM entry). 

- Associated with neither a concatenated data group nor a 
multi-volume data set. 

• DDNAME2, if specified — valid characters and not already 
in TIOT. 

• DSNAME, if specified — proper length and valid characters. 

• Membername, if specified — valid characters. 

• SYSOUT information, if specified — valid characters. 

• No mutually exclusive parameters — DSNAME, DUMMY, 
TERM, or SYSOUT appear alone. 

Moves key TIOT extension information from DAWA1 to DAWTVARY; 
reads the SIOT that contains DDNAME1 into DAWA2. 



• Initializes SIOT in DAWA2 by zeroing and blanking out some 
fields, loading others from the parameter block, and setting bits, 
as appropriate. Moves it into a specially obtained holding buffer 
to await movement to the job queue data set (SYS1 .SYSJOBQE). 

• Initializes JFCB in DAWA1 similarly. 

• Processing for SYSOUT data sets — Obtains storage for a 
SYSOUT work area, places its address in the DAWT, reads the 
SCT into DAWA1, obtains storage for an enqueue/dequeue 
parameter list, and issues an ENQ macro instruction for the 
WTPCB; assigns space in the job queue for a new SMB, a new 
DSB, and the JFCB and chains them into the message class 
output chain. 

Generating a temporary data set name — Generates name in JFCB 
in DAWA1 (entry from IGC09099) or in the SYSOUT work area 
(entry from IGC07099); obtains storage for an enqueue/dequeue 
parameter list for the allocation/termination (Q4/Q5) resource and 
initializes it. 

Additional SIOT and JFCB processing: 

• If DUMMY or TERM=TS is specified — places a DSNAME of 
NULLFILE in the JFCB; turns on the DUMMY or TERM DSNAME 
bit in the VFLAGS field of DAWTVARY; sets the disposition bits 
in the SIOT and JFCB as specified in the input parameter block. 

• If the DSNAME is omitted or begins with "&" — turns on the 
VGENDS bit in VFLAGS to indicate that a DSNAME must be 
generated; turns on the STATUS = NEW bit in VFLAGS and sets 
a disposition of NEW, DELETE in both the JFCB and SIOT. 

• If the data set is a SYSOUT data set — moves the generated 
DSNAME in the SYSOUT work area into the JFCB and frees the 
storage occupied by that work area; turns on the STATUS = NEW 
bit in VFLAGS, sets a disposition of NEW, DELETE in the SIOT, 
and a status of MOD in the JFCB. 

• If the DSNAME is specified but does NOT begin with "&" — 
moves the name from the input parameter block into the JFCB; 
turns on STATUS = NEW bit in VFLAGS if disposition is NEW; 
issues LOCATE macro to get the volume serial number from the 
volume list block if disposition is not NEW and volume serial 
number not specified; turns on STATUS = NEW bit in VFLAGS if 
volume serial number cannot be found. 

• Saves the unit type field in the SIOT, places the SIOT in its 
buffer, transfers control to one of four routines, as follows: 

- To 1GC 15099 if the DUMMY or TERM data set bit is on in 
VFLAGS. 

- To IGC08099 if the VGENDS bit is on in VFLAGS — 
DSNAME needs generating. 



Routine 



Allocation 
Contro I 
Routine 



Validity 

Checking 

Routine 



SIOT and 
JFCB 
Building 
Routine 



SYSOUT 

Processing 

Routine 



SIOT and 
JFCB 
Building 
Routine 



Label 



IGC00099 



IGC07099 



1GC09099 



IGC08099 



IGC09099 



F.C. 



JA 



JB 



JB 



JB 



JB 



Key Description 


Routine 


Label 


F.C. 


- To IGC 10099 if a DSNAME is specified in the input parameter 
block. 

- To IGC 1 1099 in other cases with the VNOENQ bit turned 
on in VFLAGS to signal IGC11099 not to perform data set 
enqueue processing. 








£1 Searches for a DSENQ table entry for this data set to see if it has 
already been enqueued; transfers control to IGC 11099 if it finds a 
DSNAME entry with compatible use attributes. 

• Changes use attribute from shared to exclusive (RET=CHANGE 
option on ENQ macro) if necessary for a currently enqueued 
data set; enqueues data set if there is no DSENQ table entry for 
it (see IGC10099 module description in Section 3); builds ENQ/ 
DEQ parameter list for allocation/termination (Q4/Q5) resource 
and passes it to IGC 11 099 for any further necessary enqueue 
processing. 


Data Set 

Enqueuing 

Routine 

SIOT and 
JFCB 
Update 
Routine 


IGC 10099 
IGC 15099 


JB 
JB 


C The device, or unit, information in the DEVTYP field of DAWTVARY 
^ Is in one of three forms, processed accordingly, as follows: 

• Converts EBCDIC information — 

- If the unit name is either generic or esoteric, searches the 
device name table (DNT) for the unit entry and saves it in 
DEVTYP. 

- If the unit name is a specific UCB, saves a pointer to it in the 
UCBP field of DAWTVARY and turns on the specific UCB flag 
(VSPFCUCB) in VFLAGS. 

• Considers all direct access devices as eligible if unit not 
specified. 

• Performs no processing if unit information already is in device 
type form. 

Uses device mask table (DMT) and/or system UCBs to build a bit 
pattern that represents devices that may be eligible to satisfy the 
allocation request; turns on bit pattern construction flag 
(VBPCONST) in VFLAGS to indicate initialization of the pattern 
construction area ( PC A — see Section 5) for the bit pattern. 

Uses specific UCB designation or PCA bit pattern to furnish device 
candidates for eligibility validation; performs a comprehensive 
series of checks on the device and the volume mounted on it to 
ensure that the allocation request can be satisfied; puts addresses of 
eligible candidates in UCBLIST (see Section 5) in DAWA2 and frees 
the PCA or DMT. 


DSENQ 
Update 
Routine 

Bit 

Pattern 
Construction 
Routine 

Device 

Reduction 

Routine 


IGC11099 

IGC12099 
IGC 13099 


JB 

JB 
JB 


Ct Puts default space parameters in the JFCB; for a single candidate, 
V issues direct access device space management (DADSM — SVC 32) 
to allocate the necessary space on the volume; otherwise, builds and 
searches candidate attribute list (CAL) for the best candidate and 
issues DADSM for it; if DADSM fails, tries DADSM on the other 
candidates until either successful or the list is exhausted; puts the 
selected UCB (candidate) address in the UCBP field in DAWTVARY 
or returns error code if DADSM fails for all. 


DADSM 
Routine 


IGC 14099 


JB 


"7* Issues the messages through the WTP facility. 

Q Writes the JFCB and SIOT to SYS 1 .SYSJOBQE and moves the 
^ DDNAME to the TIOT, updating the TIOT as necessary, if control 
is from IGC09099. For other than a DUMMY or TERM request: 
places the volume serial number of the allocated device in the JFCB 
and writes the SIOT and JFCB to SYS1 .SYSJOBQE; updates the 
UCB, issues a DEQ macro for the allocation/termination resource, 
frees the ENQ/DEQ parameter list, and issues any requested 
allocation messages (see 7 above). 


TIOT and 
JFCB Update 
Routine 


IGC 15099 


JB 


O Errors during dynamic allocation cause an immediate return to DAIR 
by SVC 3 with return code as shown in Figure 35. 









INPUT 



PROCESSING 



RESULT 



SIOTTTR Record 



f~\ 
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CROSS-REFERENCE TABLE FOR UNALLOC 



Key Description 


Routine 


Label 


F.C. 


4 • The input SIOTTTR (relative track address record) contains the pointer (TTR) to the SIOT containing 
• the user supplied DDNAME in the dynamic allocation parameter block from DAIR. 

• Preparing the DAWT for freeing data sets includes inserting the parameter block address for use by the 
unallocation routines and initializing the pointers in DAWTVARY as shown on the diagram. See 
"Section 5: Data Areas" for a full description of DAWTVARY. 

• The dynamic allocation parameter block contains the address and control information necessary for the 
UNALLOC function to free a data set. Refer to "Section 5: Data Areas" for a description of the 
parameter block contents. 


Allocation 

Control 

Routine 


IGC00099 


JA 


O Returns to DAIR as soon as the reading of the input SIOTTTR is complete if the data set is already free; 
^ otherwise, checks the contents of the parameter block as follows: 

• That the data set is not associated with multiple volumes or units, 
o That the device involved is direct access. 

• That the disposition is either valid or omitted. 

• That the DDNAME is associated with neither an open data set nor with a concatenated data group. 

For valid checks, secures the unallocate work area, initializes pointers into it, and reads the SIOT and 
JFCB into it; checks data sets other than DUMMY or terminal to ensure that they are not part of a 
generation data group, and are not passed, suballocated , or shared, with a disposition of DELETE; 
initializes parameter and volume lists for the CATALOG and SCRATCH macros, and gets storage for and 
initializes an enqueue parameter list, if these operations and checks produce no errors. 


Validity 

Checking 

Routine 


'IGC01099 


JC 


^P Checks operator and/or terminal requests for disposition messages and makes appropriate indications; 

*J prepares and writes disposition messages IEF283I, IEF285I, and IEF287I as appropriate (see the Messages 
and Codes SRL, GC28-6631 for their descriptions); if the message is to the operator or user, issues the 
WTO/WTP macro; if any terminals are to receive the message, searches the TJB chain and invokes the 
TPUT macro to issue the message. 

May also receive entries from SYSOUT processing routines (see 6 below): 

• Control from IGC05099 — initializes the WTO buffer and the disposition message SYSOUT. 

• Control from IGC04099 — initializes the WTO buffer and scratches the data set. 


Disposition 
Processing 
Routine 


IGC02099 


JC 




J\ Decrements the user count; cleans up the UCB so that it no longer appears allocated, if last user. 

• For terminal or DUMMY data sets — turns off the terminal bit in the SIOT and TIOT; zeros out the UCB 


Device 
Freeing 
Routine 


IGC03099 


JC 


address part of the SCTUTYPE field of the SIOT; turns on the DYNAM bits in the SIOT and TIOT; 
turns off the DUMMY bit in the SIOT; puts "NULLFILE" in the DSNAME field of the JFCB; writes the 
SIOT and JFCB to the job queue; frees the storage for the unallocate work area; passes control to 
IGC25099 for DSE updating. 

• For SYSOUT data sets — zeros out the SIOT DSB pointer and turns off the SYSOUT bit; if the data set 
is to be enqueued for the output writer task immediately (that is, when its disposition is not DELETE), 
rather than waiting for the completion of LOGOFF, continues processing as though the data set were 
DUMMY; in this case, zeros out the UCB pointer in the TIOT. 

• For other data sets — issues an ENQ macro for termination resources and decrements the user count; 

if the user count is zero, frees the device by turning off the allocated bit in its UCB; turns off the non- 
sharable and data management count bits; if the volume is private, not permanently resident, or 
reserved, and if it does not have retain-specified or passed data sets, passes control to IGC06099 for 
KEEP message processing. 


C Issues a DEQ macro for the termination resource; searches the DSENQ table records for the DSNAME if the 
^ data set is neither SYSOUT nor temporary; deletes name from table and dequeues it by 

using the POST macro against the ECB for the initiator (which in turn issues the DEQ macro against the 
DSNAME); issues the WAIT macro for the dequeuing operation to complete. Frees the storage occupied by 
the ENQ parameter list, zeros out the UCB pointer in the TIOT, and continues processing as though for a 
DUMMY data set (see 4 above). 


Device 
Freeing 
Routine 


IGC03099 


JC 


£* For SYSOUT dispositions other than DELETE, checks validity of job name and SYSOUT class; obtains storage 
" for the JCT if the disposition is not DELETE and for the SCT if the DSB is in the message class, and reads the 
tables into storage; if the disposition is not DELETE, invokes the transient queue management routines to 
assign records for the DSB and JFCB associated with the data set; if the data set is to be enqueued for a 
SYSOUT writer (that is, when the disposition is not DELETE), passes control to IGC05099; for cases where 
the DSB is in the message class, writes the SCT to the job queue and frees the SCT storage; transfers control 
to IGC02099, which deletes the data set. 

Initializes a DSB using information from the SIOT, TIOT and input parameter block; for SMF, places 
appropriate SMF information from the JMR into the DSB; writes the DSB and JFCB to the job queue using 
the records assigned by IGC04099; if the DSB is in the message class, writes the SCT to the job queue and 
frees the JCT and SCT storage; invokes the transient queue management routines to enqueue the data set 
on the proper output class; transfers control — to IGC02099 to issue the disposition message if 
MSGLEVEL = 1; to IGC03099 otherwise. 


SYSOUT 
Chain DSB 
Processing 
Routine 

SYSOUT 
Data Set 
Enqueuing 
Routine 


IGC04099 
IGC05099 


JC 
JC 


■T Normally, transfers control to IGC25099 for DSE updating; however, errors cause a return to DAIR via 
■ SVC 3 with a return code as shown in Figure 35. 









INPUT 



From DAIR 
Via SVC 99 



PROCESSING 



RESULT 



SIOTTTR Record 


^^m 


Header 


CodeX'02' V 


tSIOTl 


N 


|SIOT2 










fSIOTn 


N 


/^ N 




Performs the User-Requested Freeing of Data Sets 



JFCB 
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Q Perform Special SYSOUT Processing, if Necessary. 
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SVC 3 



Register 15 
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MVT Job Management 
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CROSS-REFERENCE TABLE FOR CONVERT 



Key Description 


Routine 


Label 


F.C. 


4 • The input SIOTTTR (relative track address record ) contains the pointer (TTR) to 

■*• the SIOT containing the first user-supplied DDNAME in the dynamic allocation 

parameter block from DAIR. See the description for the parameter block below. 

• Preparing the DAWT for attribute conversion includes inserting the parameter block 
address for use by the conversion routines. 

o The dynamic allocation parameter block contains address and control information 
for the CONVERT function. It includes: 

- DDNAME1 — the DDNAME currently associated with the unopened data set 
whose attribute needs changing. 

- DDNAME2 — the new DDNAME to be associated with the data set if, for 
example, DAIR has specified the exchange option. 

- MEMBERNAME — the member name associated with the data set if it is part 
of a partitioned data set. 


Allocation 

Control 

Routine 


IGC00099 


JA 


O Checking the validity ensures that: 

• DDNAME1 data set is currently closed. 

• DDNAME2, if specified, contains no invalid characters, is in the TIOT if the 
EXCHANGE option was selected, or, that is not in the TIOT if the exchange 
option was not selected. 

• Membername, if specified, contains no invalid characters. 
An internal subroutine performs the name checking. 


Validity 

Checking 

Routine 


IGC 16099 
NAMECK 


JF 


Tt Saves the SIOTTTR associated with DDNAME! in the TTRSIOT1 field of DAWTVARY 
** for later use in finding the SIOT to be updated; saves DDNAME2 SIOTTTR in 
TTRSIOT2 field in DAWTVARY for use in processing the EXCHANGE option, if 
specified — this SIOTTTR for DDNAME2 points to the SIOT for DDNAME2 
and can come from either the same or a different blocked SIOTTTR record as the 
DDNAME! SIOTTTR. 


Validity 

Checking 

Routine 


IGC 16099 


JF 


y\ Posts an event control block so that the initiator will try to enqueue the data set for 
■ exclusive use, if the user requests this; for a successful enqueue, updates the use 
attribute in the data set enqueue (DSENQ) table entry for this data set to show its 
change in status. 


Validity 

Checking 

Routine 


IGC 16099 


JF 


C Necessary for changes to the status or member name: if its DCB-related fields are to 
be cleared, turns on the bit to prevent forward merge and makes its blocksize field 
equal to the blocksize parameter passed in the dynamic allocation parameter block. 


SIOTand 
JFCB Updating 
Routine 


IGC 17099 


JF 


g Necessary for changes to the status, disposition, or DDNAME. (Updating two 
SIOTs is necessary to process the EXCHANGE option.) For warmstart processing, 
places the UCB address in the low-order two bytes of the SCTUTYPE field. This 
UCB is the one associated with the data set involved in the attribute conversion 
request. 


SIOT and 
JFCB Updating 
Routine 


IGC 17099 


JF 


*7 Necessary if the updating of the SIOT included a change of DDNAME; updates the 
' DDNAME in the TIOT DD entry that corresponds to the same data set whose SIOT 
DDNAME entry was updated (see 6 above). 


SIOT and 
JFCB Updating 
Routine 


IGC 17099 


JF 


Q Invokes the queue management routines to write the updated records to the 
W SYS1.SYSJOBQE data set. 


SIOT and 
JFCB Updating 
Routi ne 


IGC 17099 


JF 


Q Normally, passes control to IGC25099 for DSE updating; errors during processing 
cause an immediate return to DAIR by SVC 3 with a return code as shown in 
Figure 35. 
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GROSS-REFERENCE FOR CONCAT 



Key Description 


Routine 


Label 


F.C. 


A • The input SIOTTTR (relative track address record) is associated with the SIOT 

containing the first user-supplied DDNAME in the dynamic allocation parameter 
block from DAIR. See the description for the parameter block below. 

• Preparing the DAWT for concatenation includes inserting the parameter block address 
for use by the concatenation routines. 

• The dynamic allocation parameter block includes an eight-byte DDNAME for every 
DD statement that refers to a data set to be concatenated. 


Allocation 
Control Routine 


IGC00099 


JA 


O CATLST is obtained to contain the addresses of the TIOT entries corresponding to the 
input DDNAMEs in the parameter block. These addresses provide access to the 
appropriate SIOTTTR (see 6 below). Uses each DDNAME to locate the proper old TIOT 
entry; moves the entry address to CATLST in the requested concatenation order. 


CATLST 

Construction 

Routine 


IGC 18099 


JD 


^P The contents of the addresses in CATLST become the first entries in the new TIOT; the 
*J N field in DAWTVARY records the number of these new entries; moves these entries in 
conjunction with the use of CATTAB, as described in 4 below. 


CATLST 

Construction and 
TIOT Building 
Routines 


IGC 18099 


JD 


A CATTAB correlates the building of the new TIOT with the possible need to update the 
SIOTTTR chain to reflect the new concatenation order, and to prepare for updating a 
data control block, if necessary. It contains a twelve-byte entry, as illustrated, for 
each entry in CATLST (and hence for each TIOT DD entry and each data set). Fields 
are as follows: 

• ENTHND — A flag turned on to show that movement of the associated CATLST entry 
to the new TIOT is complete. 

• OLDISP and NEWDISP — Addresses of the associated DD entry in the old and new 
TIOTs, respectively; emplacing these addresses occurs during movement of the 
CATLST entry for this data set; inequality between them indicates (see 5 and 6 
below) that SIOTTTR rearrangement is necessary to reflect the concatenation order 
in the new TIOT. 

• NEWPOS — Position of the data set in the new TIOT. 

• DCBUP ~ Turned on when the data set associated with this entry is open and the 
OLDISP and NEWDISP fields are unequal; signals that preparation of a DCB update 
parameter list is necessary for the data set; OPENNUMB in DAWTVARY is 
incremented for each such data set marked. 

During the initialization of CATTAB, its location is recorded in the PCAT pointer in 
DAWTVARY. The routine moves the CATLST entries into the new TIOT; marks 
NEWPOS in each associated CATTAB entry; each of the DD entries is rounded out 
by using the address and control information in CATTAB to move the remainder of the 
DD entries to the new TIOT. 


TIOT Building 
Routine 


IGC 19099 


JD 


C Invokes transient queue management routines to read in SIOTTTRs for necessary 
** rearrangement, as indicated by unequal OLDISP and NEWDISP fields in the 
corresponding CATTAB entry (see 4 above). 


TIOT Building 
Routine 


IGC 19099 


JD 


g (Each SIOTTTR contains the TTR for a single SIOT; each SIOT is related by DDNAME 
^ to a specific TIOT DD entry, and therefore to the corresponding data set and 
CATTAB entry; hence, each TTR available via the read-in relates directly to a 
specific data set in the concatenated group and must therefore reflect the order 
within the group.) Provides an array of TTRs that can easily be accessed, indexed, 
and rearranged, excerpting the SIOTTTR headers and compressing the residual TTRs 
into contiguous storage; rearranges the TTRs to reflect the concatenation order. 


TIOT Moving 
Routine 


IGC20099 


JD 


^ Spreads the array to decompress it and moves the SIOTTTR headers back in; invokes 
■ the transient queue management routines to read the records back to the job queue 
(SYS1.SYSJOBQE data set). 


TIOT Moving 
Routine 


IGC20099 


JD 


Q Moving the new TIOT over the old one completes concatenation. 








O Rearrangement of any open data set DD entries in the TIOT during concatenation 
requires the construction of a parameter list for the DCB update routine; the open 
data sets are earmarked by the DCBUP flag turned on in CATTAB entries during 
processing of their CATLST entries (see 4 above) and by their respective unequal 
OLDISP and NEWDISP entries; preparation of the list is as illustrated, with the old 
and new TIOT entry offsets taken respectively from the OLDISP and NEWDISP fields 
in the appropriate CATTAB entry. 


TIOT Moving 
Routine 


IGC20099 


JD 


\C\ Normally, passes control to IGC25099 for DSE updating (via the DCB update routine, 
«*»^ IGC35099, if the concatenation moved the TIOT DD entries for open data sets); errors 

during processing cause an immediate return to DAIR by SVC 3 with a return code as 

shown in Figure 35. 
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INPUT 



CROSS-REFERENCE TABLE FOR DECONCAT 



Key Description 


Routine 


Label 


F.C. 


4 • The input SIOTTTR (relative track address record) is associated with the SIOT 
•• containing the user-supplied DDNAME (see 2 below) in the dynamic allocation 
parameter block from DAIR. 

• Preparing the DAWT for deconcatenation includes inserting the parameter block 
address and the TIOT entry address associated with the input DDNAME. 

• The TIOTP and TIOTNO fields in DAWT relate to the input DDNAME as follows — 

- TIOTP — TIOT address for the entry containing the DDNAME of the concatenated 
group of data sets. 

- TIOTNO — Denotes the SIOTTTR position for the SIOT containing the input 
DDNAME; this SIOT is associated with the TIOT DD entry that contains the 
same DDNAME; the SIOTTTR position is where the TTR for the SIOT resides in 
a table of SIOTTTRs. 


Allocation 
Control Routine 


IGC00099 


JA 


O • This DDNAME is associated with the group of concatenated data sets that the user 
^ wishes to deconcatenate; it occupies the first TIOT DD entry for all the data sets 
in the group; the DDNAME fields in the DD entries for the succeeding data sets in 
the group are blank. At the end of processing, there is a separate, named DD entry 
for each data set; this new structure relates each data set to a single DD entry, 
thereby providing the requested deconcatenation. 

• The input SIOTTTR points to the SIOT associated with the input DDNAME (that is, 
with the first of the data sets in the concatenated group). The data set associated 
with this SIOT must not be open because allocation changes to open data sets can 
cause errors — checks each new entry during processing (via the reading of the 
SIOTs — see 5 below) to make sure it is not open. 

*2 Invokes the queue management routines to read in the SIOTTTRs after getting the main 
storage to contain them. 

A Compresses the SIOTTTRs by excerpting their headers and squeezing the remaining TTRs 
together into contiguous space -- results in a single table of TTRs that can be easily 
indexed by using the incrementable value in TIOTNO. 


Deconcatenation 
Routine 


IGC23099 


JE 


C Deconcatenation consists of putting DDNAMEs from the SIOT into their respective 
^ blank DD entries in the TIOT. Processing for each DD entry includes: 

a) Indexing the array of TTRs for the appropriate SIOT; TIOTNO provides the 
Indexing factor for using the compressed TTR table to locate the SIOT. 

b) Reading the SIOT for the DDNAME it contains; a particular SIOT correlates with 
each DD entry in the TIOT and provides the DDNAME that deconcatenates the 
entry from the group. 

c) Checking to see that the SIOT DDNAME is not the same as one already in the TIOT 
(duplicate DDNAMEs in the TIOT is an error situation). 

d) Preparing a list of DDNAMEs valid for movement into the DD entries. This 
processing constitutes a loop in which one circuit processes one DD entry and its 
associated SIOT. Within this loop there is another small loop (see C above) to 
check the TIOT entries for a duplicate DDNAME. This possibility arises each time 
a SIOT turns up with a non-blank DDNAME; a duplicate DDNAME is invalid for 
entry into the list of DDNAMEs to be moved to the TIOT. The termination of the 
big loop is at either: 

• The next non-blank DD entry (the end of the concatenated group). 

• The end of the TIOT (a word of zeros). 

fZ Normally, passes control to IGC25099 for DSE updating; errors cause a return to 
DAIR by SVC 3 with a return code in register 15, as shown in Figure 35. 
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lOSS REFERENCE TABLE FOR UPDATE 



Key Description 


Routine 


Label 


F.C. 


4 • The inp.ut SIOTTTR (relative track address record) contains the pointer (TTR) to 
• the SIOT containing the first user-supplied DDNAME in the dynamic allocation 
parameter block from DAIR. 

• Preparing the DAWT includes inserting the parameter block address for use by the 
update routines and reading the input SIOTTTR (above) into DAWA2. 

• The dynamic allocation parameter block contains the address and control 
information necessary for the UPDATE function to perform the requested operations 
on the data set extension (DSE) for the user-specified data set. See "Section 5: 
Data Areas" for the complete description of the UPDATE (function code X'OO') 
parameter block. 

• When the function code is X'OO', marking the DSE "not in use" is the only updating 
necessary. In this case - 

- Register 1 points to the DSE parameter list. 

- There is no dynamic allocation parameter block for any other function. 

- Control passes directly from DAIR through the allocation control routine to 
IGC25099 for updating. 


Allocation 

Control 

Routine 


IGC00099 


JA 


O Optional operation performed when concatenation of data sets has resulted in 
^ rearrangement of TIOT DD entries for open data sets. DCB update parameter list 

furnished by concatenation routines provides the old and new offsets into the TIOT for 
each such rearranged entry. DCB update routine uses old offset of each pair to find 
the proper DCB to update, then updates with the new offset. 


DCB Update 
Routine 


IGC35099 


JG 


Tt • Determines which function passed control. 

• Searches the DSE chain for the input DDNAME(s) in the parameter block. 

• Partially initializes a new DSE block for a newly allocated data set, if control is 
from the DATASET function; this includes - 

- Obtaining the space for it. 

- Calculating its size and annotating DSEBLKSZ accordingly. 

- Setting the DSEFORWD and DSEBCKWD chain pointers. 

- Moving in the DDNAME from DAWTVARY. 

- Setting the status and disposition fields from the DATASET parameter list. 

- Moving the DSNAME and its length from the parameter block to DSEDSLNG 
and DSEDSNAM fields, respectively. 


DSE Update 
Routine 


IGC25099 


JG 


/\ For a function code other than X'OO 1 , control transfers to other routines in the 
■ UPDATE function as shown. 


DSE Update 
Routine 


IGC25099 


JG 


C Refer to "Operation" in the module description for IGC26099 for an outline of 
^ this processing. 


DATASET and 
CONVERT 
Update Routine 


IGC26099 


JG 


Ci Refer to "Operation" in the module description for IGC27099 for an outline of this 
processing. 


DECONCAT 
anci Control 
Routine Update 
Routine 


IGC27099 


JG 


"7 Refer to "Operation" in the module description for IGC29099 for an outline of this 
processing. 


UNALLOC 
and CONCAT 
Update Routine 


IGC29099 


JG 


Q Necessary only if SMF is active in the system; refer to "Operation" in the module 
description for IGC28099 for an outline of this processing. 


SMF Exit 
Routine 


IGC28099 


JG 


Q The normal and error exits from the SVC 99 routines is to DAIR by the EXIT macro 
instruction (SVC 3) at the conclusion of update processing. See Figure 36 for 
applicable return codes. 
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INPUT 



PROCESSING 



RESULT 



Register 1 




From DAIR 
Via SVC 99 
Function 
Code 07 






ATTRIB routine 



1 



Check DA34CTRL field of DAPB34 to determine 
operation: 

• Search ATRCB chain for given name, 
(see 2) 

• Build new ATRCB and add to chain, 
(see 3) 

• Delete an ATRCB from chain, 
(see 4) 

Invoke ATTRSRCH to scan ATRCB chain. 
Return to DAIR with return code 
(error code if name is found). 



Use data in DAIRACB as input to build new 
ATRCB in subpool 255. Return to DAIR. 



Remove pointers from ATRCBs that point 
to specified ATRCB. Free space in subpool 
255. Return to DAIR. 



o 



ATRCB chain 



ATRCB 



ATRCB 





ATRCB 
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TMP 



•-■ Register 1 
Default Parameter List (DFPL) 



INPUT 



PROCESS 



Default (IKJEHDEF) 



|UPT 



fECT 



^ECB 



♦ dfpb 



Called by a TSO 
Processing Routine 



r~ 



/ 

Default Parameter Block (DFPB) 



Data Set Name Buffer 



Entry Code / 



Control f 
Code Flag 



LOCATE 
Return Code 



^ Data Set Name Buffer 



A Protected Step Control 



Block 



I Default Qualifier 



Length of 
dsname 



dsname 
(as provided by terminal user) 



CROSS REFERENCE TABLE 



Key Description 



1 Default performs one or more functions depending on the entry and control codes passed in the DFPB. 
The entry and control codes are as follows: 



Entry 
Code 

X'OO' 



Function performed by Default 
Use qualifier provided by terminal user. 



X'04' Search the system catalog for descriptive 
qualifiers. If more than one exists, build 
a list of possible qualifiers and prompt the 
terminal user to choose one. 

X'08 1 Search system catalog for descriptive 

qualifiers. Attempt to qualify the data 
set name but don't interrupt the terminal 



Contro I 
Code Flag 

Bit 2 



Bit 5 



Bit 6 



Bit 7 



Function performed by Default 

Prefix given data set name with 
userid . 

Returns a copy of any added 
qualifier to caller. 

Use the qualifier provided by 
calling routine. 

Issue message to terminal user. 



X'OC Search system catalog for descriptive 
qualifiers. Accept qualifier provided 
by terminal user; alert him if it is an 
old data set. 

2 Userid is obtained from the PSCBUSER field of the PSCB and is prefixed to the dsname in the data set 
name buffer. 

Default searches the system catalog by calling the Catalog Information Routine which in turn issues a 
LOCATE macro instruction. 

3 If a data set qualifier is requested, and one is not supplied Default searches the system catalog by calling 
the Catalog Information Routine. The Catalog Information Routine in turn issues a LOCATE macro 
instruction. If a qualifier is supplied Default finds the qualifier by referring to location pointed to by the 
DFPBQUAL field of the DFPB. 

4 If the calling routine requests a copy of the inserted qualifier, Default inserts this copy in the location 
pointed to by the DFPBQUAL field of the DFPB. 



Routine 



Default 
Service 
Routine 



Label 



IKJEHDEF 



ADDUSRID 



CALLCIR 



ADDQUAL 



Flowchart 



GA 



GA 



GC 



GC 



,_J 



r~ 



> 



j 



Default will fully qualify, a data set name. 



1 Determines function requested. 



2 Prefixes userid, if requested. 



3 Adds data set qualifier, if requested. 
- Seprches system catalog, ~-- 
OR 
. - Uses qualifier provided. 



4 Returns a copy of added qualifier, 
if requested. 



f RETURN j 



RESULT 



System Catalog 



Address is located in 
DFPBN field of DFPB. 



Data Set Name Buffer 



Length of 
fully 
qualified 
dsname 



userid .dsname. qualifier 



LEGEND 



m> 


Start of Diagram 




Control Flow 
Data Flow 


' v> 


c—_-~^> 


Data Made Available 


1^ 


Pointer to, or Address of 


^ 


Reference to 


1 f 2,etc. 


Refer to Corresponding Number 


A,B, etc. 


Refer to Corresponding Letter 
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Register 1 



12 
16 



r - 



1 CIRPARM 



Option 
Code 



Not used 



I 



Index name or an address in 
control catalog 



t Volume id of CVOL 



} 256 byte work area 



\ 72 byte save area 



Index name or address relative to 
beginning of system catalog 



Note: Prefixed with a "1" 
if it contains an address 
relative to the beginning 
of the system catalog. 



Called by a TSO 
Processing Routine 



PROCESS 
Catalog Information Routine (IKJEHCIR) 



Searches System Catalog using 
LOCATE macro instruction. 



I 1 Determines function requested. 



2 Searches system catalog for - 
names or addresses. 



C 



3 Compresses and reformats the 

information from the system catalog. 



Returns the " list of entries " to 
the caller. 



f RETURN J 



RESULT 

SYSTEM 
CATALOG 




Address is located in 
CIRWK1 field of 
CIRPARM 



Work Area (256 bytes) 



List of entries 
containing the 
requested 
information. 



STRUCTURE OF SYSTEM CATALOG* 



Logical Structure 



X 



SMITH 
I 



ACCTS 



DATA 



IL 



INVENTRY 

I 



ASSETS 



NEW 



| ONHAND 



Three 



Index 



Levels 



Fully qualified names represented: - SMITH. ACCTS. DATA 

- SMITH. ACCTS. ASSETS 
-SMITH. INVENTRY. NEW 

- SMITH. INVENTRY. ONHAND 



Physical Structure 

Volume Table 
of Contents 



Volume Index 
(userid) 



SMITH index 
(data set name) 



INVENTRY index 
(qualifier) 




ASSETS 



| Volume number 



I 



of ASSETS 



t: 



DATA 



Volume number 
' of DATA 



NEW 



I Volume number 
\) of NEW 



^MUAKin J Volume number 
ONHAND , ofQNHAND 

lZ 



SMITH. INVENTRY. NEW 



SMITH. INVENTRY. ONHAND 



Data Sets 



Data Sets 



-SMITH. ACCTS. ASSETS 



■r SMITH. ACCTS. DATA. 



* Note: Pointers refer to beginning of index or data set. 



CROSS REFERENCE TABLE 



Key Description 


Routine 


Label 


Flowchart 


1 The Option Codes are as follows: Option Byte Response to Caller 

X'OT Returns all the lowest level qualifiers contained within one index 
block. 


Catalog 

Information 

Routine 


IKJEHCIR 


HA 


X'02' Returns a lowest level index name. 








X'04 1 Returns a listing of volumes. 








X'08 1 Returns volume information. 








2 The Catalog Information Routine issues the LOCATE macro instruction, which in turn issues a SVC 26. 




LOCATE 


HA 


3 The index block from the system catalog, which is returned by LOCATE, is reformated and returned to the caller. 




CODE 00 


HA 



LEGEND 




■* 


Start of Diagram 


BH m 


Control Flow 
Data Flow 


N 


1 J 


I---} 


Data Made Available 




\r 


Pointer to, or Address of 


^ 


Reference to 


1,2, etc. 


Refer to Corresponding Number 


A,B,etc 


Refer to Corresponding Letter 
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will be sent to the author's department for appropriate action. Using this 
form to request system assistance or additional publications will delay response, 
however. For more direct handling of such requests, please contact your 
IBM representative or the IBM Branch Office serving your locality. 
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Clarity Accuracy Completeness Organization Index Figures Examples Legibility 
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Please indicate in the space below if you wish a reply. 
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